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Je désire recevoir — sans engagement — votre 
documentation sur les cartes SpeediskT" 





la RAM Card à mémoire permanente 


Rapidité 


Fiabilité 


Capacité 


Compatibilité 


Prix 


Garantie 


Banc d'essai dans la revue Pom's n° 31 


Vente par correspondance, Logma S.A. 
documentation, 12, rue d'Anjou 
renseignements 78000 Versailles 


L'anti-disque 


Speedisk'" est une marque déposée de 
Thot Informatique® - France 


Speedisk 





SpeediskTM, 






Temps d'accès à l'information : 0,2 ms 
(100 fois plus rapide que les disques 
durs...). 

Par exemple : 

démarrage sur Basic.System en 3 s. 
AppleWiiter disponible en à pere 1s 









Constiuée de circuit CMOS à irès 
faible consommation, Speedisk'” est 
aussi fiable que l'ordinateur lui-même. 
Elle est insensible à l'environnement. 






SpeediskTM est proposée en quatre 
versions : 

1 Mo (1 048 576 octets) 

384Ko extensible à 1Mo 

avec horloge compatible ProDOS 
(pour les Apple )(+, //e) ou sons (IGS) 








100% compatible avec ProDOS (c'est 
un volume), SpeediskTM fonctionne sur 
Appte )}(+, sur Apple //e et sur Apple 
IIGS. 









Lecteur de Pom's, vous bénéficiez 
d'une remise de 10 % : 











SP400 

384Ko 200 359100 
SP1000 

1 Mo 554000 539100 
SP400H 

384Ko horloge a 59060 4 122,00 
SP100C 

1 Mo horoge pe 5 922,00 





SpeediskTM est une fabrication 
française garantie un on par échange 
de la carte. 
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_—— dBASE® Mac est disponible. tels qu’ils seront imprimés. 
C’est le plus puissant système de gestion Nous ne parlons pas simplement du texte 
de base de données relationnelle pour et des graphiques. Avec dBASE Mac, 
Macintosh". vous pouvez même incorporer des photos 
À la différence des autres bases de au sein des fichiers. 
données, vous l’utilisez Toujours sans programmation, vous 
sans aucune importez des données issues de BASE I 
connaissance PLUS ou de n’importe quel fichier 


de la ASCII. Tout cela, grâce au système d’aide 
) program- intégré et aux menus déroulants du 
f mation. Macintosh. 


Commencez Mais si vous voulez aller encore plus loin, 
par créeret un puissant langage de programmation 


relier vos permettra de développer des 
fichiers. La ADPHCANONS, ue He 
modification d’une information Vous désirez BON DE COMMANDE - 34- 
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Éditorial 


Pom's sur Minitel, 
aujourd'hui 


Pom's est bien plus la revue des Apple que celle des Apple // 
avec un cahier Mac : comme Minitel 27, Kruptos, InterPom's, 
T_Pom's, Clv, nous vous proposons à nouveau des program- 
mes communs aux Apple // et au Macintosh. Il s’agit de 
Pom_Eink et Répom'deur, deux de ces programmes qui don- 
nent à un seul numéro la valeur d’un abonnement. 


(1) 39 53 04 40, tel est le numéro de téléphone que Pom's met 
à la disposition de votre Minitel 24 heures sur 24. Dès 
aujourd’hui, vous y découvrirez le répondeur télématique de ce 
numéro, répondeur prêt à enregistrer vos messages et, pour- 
quoi pas, vos commandes ; voici donc la possibilité d'essayer 
un nouveau programme de communication avant d'acheter la 
disquette. Qui dit mieux ? Ce nouveau numéro de téléphone 
est promis à bien des développements mais, rançon dusuccès, 
pardonnez-nous en cette période de mise en service quelques 
tonalités “occupé”. 


S’ilest un service qui vous tient, et qui noustient, à cœur, c'est 
bien l'assistance téléphonique pour la mise en œuvre de nos 
programmes ; c'est une charge importante, mais elle nous 
semble capitale. 

Nous comprenons que ceux qui manifestent leur fidélité parun 
abonnement en attendent plus d'efficacité, aussi nous travail- 
lons à des solutions : rendez-vous au numéro 35. 


Comme tout service gratuit, cette assistance comporte un 
sympathique sottisier (qui occuperait bien un numéro com- 
plet) tel le cas de cet utilisateur d’'InterPom's -au demeurant 
peu aimable - qui avait quelques soucis de communication : 
il s'agissait d'un pirateur de base dépourvu de mode d'emploi, 
quiexigeait une aide ! Heureusement, notre flegme nous aide. 


Sondage ? nous recevons à l’heure de ces lignes encore bien 
des réponses : dépouillement dans le prochain numéro mais 
déjà une dominante apparaît, un succès pour la rubrique 
Apple // for ever - doutez-vous encore de l'inventivité des 
développeurs -— et des programmes de communication. 


Hervé Thiriez 
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e programme en assembleur 
présenté ici est une évolution de 
celui de Christian Guérin paru dans 
le numéro 3 de Pom’s. Il fonctionne 
# dans les mêmes conditions et 
s'utilise de la même façon. 
L'évolution réside dans le fait qu'il détermine 
Ja nature de l'écran et donne aussi bien la 
copie d'un écran en 40 colonnes qu'en 80 
colonnes. Il fonctionne sous ProDOS et DOS 
Sie 





Le petit programme BASIC ci-joint donne un exemple 
d'utilisation. 


Comment faire ? 


Il suffit de saisir et sauvegarder la récapitulation 
TXT.DMP.C (sauvegarde : BSAVE TXT.DMP.C, 
A$300, LS$60). Le programme se charge en page 3 
(ce n'est pas très original, mais sous ProDOS, quelle 
simplification) ; donc, l'une des premières lignes de 
votre programme Basic sera : 

20 PRINT CHR$(4)"BLOADTXT.DMP.C" 


À chaque fois que vous avez besoin d'envoyer une 

copie d'écran à un périphérique (ce sera bien souvent 

l'imprimante), faites : 

PRINT CHR$(4) "PR£1": 
4) "PR£O" 


CALL 768: PRINT CHR$({ 


Ceci dans le cas ou le périphérique destinataire est 
connecté au port 1. Veillez à ce qu'il n'y ait pas 
d'écho à l'écran lors de l'envoi des caractères au 
périphérique (à l'imprimante), sinon l'écran sera 
défiguré au fur et à mesure de l'impression. En 
principe un : 

PRINT CHR$S(9)"80ON" 

avant le CALL 768 règle ce petit problème. 


À noter enfin que le fichier binaire s'appelle 
TXT.DMP.C, mais qu'il conviendra à toute 
imprimante. 


G 
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Source TXT.DMP 
Assemblage par ProCODE 





0 EEE RÉ RÉ  b  tiitéiréééirissep 
1 * 
2% HARD COPIE TEXTE 40 FT 80 COLONNES ’ 
&1 L LA 
4 LÉLARSSSSRESER EL LEE EE EE EL EE EE EE EEE ESS ESELERSLESEE 
5 2 
6 ORG 5300 
7 * 
8 EQU 56 ‘Adresse de début de iigne 
3 EQU 58 sNuméro de ligne 
10 EQU SFDED ‘Ecriture d'un caractère 
11 PAGEI20OFF EQU  S$CO54 {Sélection page 1 
12 PACE2CN EGU S$CO55 ;Sélection page :A 
13 ROSOCOL EGU SCOIF Test 40 ou 80 colonnes 
14 * 
15 Rem mm mm mm mm mm mn me me me me me mn mn 
16 * Début du programme 
27 em mm 
18 
LIN EET, LDA £0 sDébut Härd Copie 1igne 0 
20 HCTI PHA Sauvegarde numéro ligne 
21* 
22 
231> £aicul de l'adresse de début de 1a ligne 
24 nm mmmmmmmmmmmmmmmmmmmmmm mm mm 
25 * 
26 PHA 
27 LSR 
28 AND £$3 
29 ORA £$4 sRoutine VTAB 
30 STA ADL+i 
31 PLA 
32 AND ES18 
33 BCC HCTZ 
34 ADC £S7E 
35 RETZ STA ADL 
36 &SL 
Er ASL 
38 ORA ACL 
39 STA ADL 
40 * 
41 Zi om om on om me om mue me om mn me mm mm ae — — an du me me me me me ne me me 0e me mm 
42 * Ecriture d'une ligne 
47 
44 * 
45 LOY £0 :Y pointe dans la ligne 
46 * 
47 HC:3 LDX £$7F ‘Est-0n en mode 
48 CPX RDB0COL z 80 ou 40 colonnes? 
49 BCS ACTS5 :Si en 40 colonnes 
50 * 
51 ; CARACTERE EN PACE JA 
52 LDA £0 
53 STA PAGE2ON Activation page 1À 
54 LDÀ  (ADL),Y 
55 STA PAGEZ2CFF ‘Retour en page 1 
56 8SMI HCT4 
57 AND ES3F ‘Si le caractére est en 
58 CMP E£S20 ; inverse ou en flashant 
59 BCS ACTA ; on le transforme 
60 ORA £$40 
61 * 
62 HCTa ORA £$580 
63 JSR OUT ‘Ecriture sur l'imprimante 
64 * 
65 CARACTERE EN PAGE 1 
66 RCTS LDA  fADL),Y 





























67 BMI HCT6 = : : 
68 AND £$3F Récapitulation 
69 CUP 2520 TXT.DMP.C 
70 BCS HCT6 an ue ne 
71 ORA £$40 Après _. saisi ne a 
72 HCT6 CRA £$80 sous moniieur, VOUS ia Sauvegarderez 
73 JSR OUT par : BSAVETXT.DMP.C,A$300,L$60 
74 * 0300:A9 00 48 48 4A 29 03 03 

: ; 0308:04 85 07 €8 23 18 90 02 
75 INY Caractère suivant ee ee da 
10 CPY £!40 D TC 0316:85 06 AO 00 A2 7F EC 1F 
70 BNE  HCT3 0320:C0 BO 19 A9 00 60 55 CO 
(sa 0328:B1 06 8D 54 CO 30 08 29 
DOS SSSR SSSR EE 0330:3F C9 20 BO 02 09 40 09 
80 * Fin d'une ligne 0338:80 20 ED FD Bl 06 30 08 
QI Em 0340:29 3F C9 20 80 O2 09 40 
g2 * 0348:09 80 20 ED FD C8 CO 28 
83 LDA £"M"-$40 sEnvoi de ‘RETURN' 0350:D0 CA A9 8D 20 ED FD 68 
84 JSR OUT ; sur l'imprimante 0358:A8 C8 98 C9 18 DO A3 60 
Go Se 
86 PLA Programme de 
8 TAY f 
+ Fe passe à 4  déMOnStration 
89 TYA suivante TXT.DMP.DEMO 
90 CMP £!24 ; Test si fin 
91 BNE HCTI sde la page 10 TEXT : HOME : PRINT CHR$ (21); 
__ 20 D$ = CHR$ (4) :FLAG = O 
33 RTS 30 FOR J = 1 TO 39:A$ = ÀA$ + "*"; NEXT 


BRÉJOUX AE - Applied Engineering 
29 rue Montribloud 69009 LYON Tél: 78.36.52.69 


APPLE II GS, APPLEITE, APPLE II C 


RÉVEILLEZ VOUS ! 


11GS: GS RAM - GS RAM PLUS 
Extension mémoire 512K à 8 MO avec patch “Super AppfeWorks” *”, 


mémoire cache. 
RAMKEEPER 
Alimentation permanente de 1 ou 2 cartes mémoire en slot extension GS. 





GS, LE: RAMFACTOR -RAMCHARGER 
Mémoire da 512K à 5 MO paritionnable sous diliérents systèmes 
d'exploitation. Sauvegarde permanente avec RamCharger. Patch“ sur 


Apple ÎIE. 

DISQUE DUR 3.5” BJX 20 MO 
Disque Winchester 3.5” axterne, compact et rapide, parlitionnabi& sous 
différenta systèmes. Liv:é avec son sélecteur de programmes et 
uliliteires en aombre, 


IE: TRANSWARP 
Accélérateur 3.6Mgz de le mémoire principale, auxiliaire et des accès 
Rom. Vitesse réglable sur la carte, au clavier et ligne de programme. 


IC: Z-RAM ULTRA 1.2.3 
Extension mémoire de 256K à 1 MO avec possibiliié horloge etou 
CP/AM. Patch°*, RamDisque sous DOS, ProDOS, CP/AM. Compatible IC 


128K, 128K Rom 3.5, 384K, 
APPLE 11 FOR EVER 





** Patch “Super AppleWorks”. Tableau de bord de 
conliguratlon: 22,600 lignes, 22.600 fiches, 2.042 coupar-coller, 
buffer d'impression, sauvegarde par auto-segmentation, dale et heure à 
l'écran et en catégories base de données. 





40 PRINT DS; "BLOADTXT.DMP.C" 


50 B$ = "POM'S"“: IF FLAG THEN B$ = “ P © 
MES M 

60 C$ = "HARD COPIE TEXT" 

65 IF FLAG THEN C$ = "HARD COPI 


E TRE ETE 
70 IF FLAG THEN PRINT DS"PR£3" 
80 PRINT A$;: IF FLAG THEN PRINT A$;"*" 


- 
‘ 


90 FOR I = 1 TO 21 

100 « PRINT 

110 IF FLAG THEN HTAB 80: GOTO 130 
120 HTAB 40 


130 NEXT I 

140 PRINT A$"**";: IF FLAG THEN PRINT À 
SiAue 

150 VTAB 4: HTAB 7: IF FLAG THEN PRINT 
TAB( 5); 


160 QINVERSE : PRINT B$S: VTAB 11 

170 IF FLAG THEN HTAB 24: INVERSE 
GOTO 190 

180 HTAB 13: FLASH 

190 PRINT CS 

200 VTAB 18: NORMAL : ATAB d: IF FLAG TH 
EN PRINT TAB( 20); 

210 PRINT "Mettez votre imprimante en ma 


rche" 
220 VTAB 20: HTAB 8: IF FLAG THEN PRINT 
TAB( 20); 


230 PRINT “puis tapez sur une touche" 

240 WAIT - 16384,128: POKE - 16368,0 

250 PRINT D$"PR£l": CALL 768: PRINT DS"P 
R£O" 

260 HOME : IF FLAG THEN END 

270 FLAG = l: GOTO 50 
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L'un des reproches que l'on adresse à ia version française 1.4 
d'AppleWorks est qu'elle n'a pas (en tableur) les fonctions 
àROUND, àAND et àOR de sa sœur 2.0 américaine, pas 
plus qu'elle ne possède de programme de mailing. 

Qu'à cela ne tienne, SuperMacroWorks permet de 
contourner ces lacunes avec élégance. Pour vous mettre en 
appétit, Pom’s vous propose, dès ce mois-ci ec dans la 
nouvelle rubrique consacrée à AppleWorks et 
SuperMacroWorks, les trois macros AND, OR ct ROUND. 


Rappelons que les fichiers de macro-commandes se 
présentent sous la forme de fichiers traitement de texte 
AppleWorks. Une fois que vous avez modifié votre 
AppleWorks avec le logiciel SMW, tout ce que vous avez à 
faire est de charger le fichier de macros, l'appeler à l'écran, 
et faire @= pour compiler celles-ci et Îes rendre actives. 


Les macros sont actionnées en appuyant simultanément sur 
la touche € et la touche d'identification de la macro. Pour 
plus de détails sur la syntaxe des macros, reportez vous au 
manuel français qui accompagne SMW. 


Voici le listing de la macro AND.OR.ROUND. Vous 
trouverez ce fichier sur la disquette d'accompagnement de 
Pom’s. Une dernière remarque : Le pavé explicatif entre les 
deux traits d'astérisques n'est nullement nécessaire pour le 
bon fonctionnement des macros, mais c'est une bonne 
habitude à prendre : il fait exactement les dimensions d'un 
écran, et rappelle en quelques lignes les fonctions et 
commandes qui suivent. 





KA KE KR ke À À À EE KE KE À À À À À À À À À XX XX XX EX XX 


APPLEWORKS 1.4 - SuperMacroWorks 
AND .OR.ROUND 


La version française 1.4 
contient Pas les fonctions àROUND, 
de la version américaine 2.0. 


d'Appleworks ne 
àAND et àOR 


est tout à 
introduire avec les macros ÉR, 
fichier, 


Mais il fait possible de les 


dA et 60 de ce 


Cempilez avec = 


puis allez dans un tableur, et expérimentez. 
Les macros vous guident par des messages, il ne 
vous reste qu'à introduire les valeurs ou 
expressions. 


KAKRRKRARARARKRARRERRRRÉRRRRARARRRRRRRARRRRRRRARRRRXÉ 
Dimitri Geystor - Novembre 1987 
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Dimitri Geystor 


START 


O:<asp>àif (“msg>" 

"<msg>'OR : première expression, P 
uis RETUPRN'<input>;1l; (àif (émsg>" "<msg>'OR : de 
uxième expression, puis RETURN'<input>;1;0)}}<r 
tn><msg>'Résultat du OR'! 


A:<asp>àèif (<msg>" 

"<msg>'AND : première expression, p 
uis RETURN'<input>; (àif (“msg>" ‘'<msg>'AND : deu 
Xième expression, puis RETURN'<input>;1;0)};0}< 
rtn><msg>'Résultat du AND'! 


R:<asp>äint (((<msg>" ‘"<msg>'Expression à arrond 
ir , puis RETURN'<input>})+,005) *100) /100<rtn><m 


sg>'Arrondi à deux décimales"! 


END 





Quelques mots d'explication sur ces macros. Elles tirent 

parti de trois formules classiques : 

+ _ pour l'arrondi à 2 décimales : àINT(((Expression) + 
,005)*180)/100 

*__ pour OR : àIF(Exprl;1;(@lF(Expr2;1;0)}) - il suffit que 
Exprl ou Expr? soit vérifiée pour que ta formule 
renvoie 1. 

- pour AND : àlF(Expl;(à!F(Exp2;1;0);0)) - il faut que 
Exprl et Expr2 soient vérifiées pour que la formule 
renvoie 1. 

L'introduction des expressions se fait par la fonction 

<input> : la macro s'arrête, et attend l'entrée de texte au 

clavier. La macro reprend aussitôt après un ‘Return’ au 
clavier (qui n'est pas ajouté à l'input). Pour que la macro 
soit compréhensible, il faut faire précéder <input> de la 
fonction <msg>, qui permet d'afficher un message au bas de 
l'écran, en caractères normaux (" "), inverses (' ‘) ou 

MouseText(* *). Dans le cas des macros ci-dessus, la série 

d'espaces entre “ “ efface le début de la ligne (où va 

s'inscrire l'input), et le message proprement dit, entre '', est 
volontairement déporté vers la droite. 


Notes : 

- attention aux apostrophes dans les messages en vidéo 
inverse : remplacez-les par un ‘°” si vous ne voulez pas 
que la suite du message se retrouve dans les endroits les 
plus inattendus. 

+  <input> accepte non seulement l'entrée de caractères, 
mais les déplacements par les flèches et la souris. 


Voici, avant de vous quitter, une autre macro fort utile pour 
tous ceux qui font régulièrement de la rédaction : 














KXKKKKKRKRKREREKERKRKRERRRERRRERRRERRERRERERRRRERRRRE 


APPLEWORKS 1.4 - SuperMacroWorks 
CeMPT=-MOTS 


Cette macro permet de compter rapidement le 
nombre de mots dans un fichier de Traitement de 
texte. Par "mot" il faut entendre tout groupe 
de caractères entre deux esraces. 


jusqu'à deux 
Compiler 


se fait du 
£ précédés 


Le compte curseur 


caractères d'un espace. 
avec G=, placer les caractères £ et le curseur 
aux endroits voulus, taper €S. Le nombre de 
mots s'inscrira à la fin, à la place du double 


£ 


Cette macro utilise les mémoires de la Macro 0, 
et les mémoires supplémentaires 1, 2, 3 et 4 
pour stocker les valeurs des unités, dizaines, 
centaines et milliers pendant le déconpte. 


KAKKARAKAARRRKARERAARRRAARKERARRREARRXRRRRRRÉRKHREE 
Dimitri Geystor - Décembre 1987 


START 
Les macros suivantes s'appellent en cascade: 


S:<all><insert><0=>0<save0>1<save0>2<save0>3<sa 
-M! Cn démarre 


M:<all><sa-C><0=>1<save0>4<sa-C><0=>2<save0>4<s 
a-C><0=>3<save0>4! Milliers 


C:<all><sa-D><0=>1<save0>3<sa-D><0=>2<save0>3<s 
a-D><0=>3<save0>3<sa-D> <0=>4<save0>3<sa-D><0=> 
S<save0>3<sa-D><0=>6<save0>3<sa-D><0=>7<save0>3 
<sa-D><0=>8<save0>3<sa-D><0=>9<save0>3<sa-D><0 
=>0<save0>3! Centaines 


D:<all><sa-U><0=>1<save0>2<sa-U><0=>2<save0>2<s 
a-U><0=>3<save0>2<sa-U> <0=>4<save0>2<sa-U><0=—> 
5<save0>2<sa-U><0=>6<save0>2<sa-U><0=>7<save0>2 
<sa-U><0=>8<save0>2<sa-U><0=>9<save0>2<sa-U><0 
=>0<save0>2! Dizaines 


U:<all1><sa-K><0=>l<save0>1<sa-K><0=>2<save0>1<s 
a-K><0=>3<save0>1<sa-K> <0=>4<save0>1<sa-K><0=> 
5<save0>1<sa-K><0=>6<save0>1<sa-K><0=>7<save0>1 
<sa-K><0->8<save0>1<sa-K><0=>9<save0>1<sa-K><0 
=>0<save0>1! Unités 
K:<all><oa-right><sa-£>! Compteur 
É£:<all><if>£<right><if>£<del>(<spc>=<spc><load0 
>4<sa-0><load0>3<sa-0>< load0>2<sa-0><load0>1<s 
a-0><spc>mots<rignt><del><spc>)<stop>! Test et 
retour, ou arrêt et résultat 

END 





Pour l'explication du mécanisme de ces macros (comme 
pour toutes les macros en cascade), voir le manuel page 16. 
La macro appelée renvoie au point d'appel de ia macro 
appelante : 


* quand toutes les commandes qu'elle contient ont été 
exécutées ; 

ou 

*  quandune condition qu'elle contient n'est pas remplie (si 
la condition est remplie, elle se poursuit normalement). 


Nete : 

dans la macro “Compte-mots”, certains groupes de 
caractères se répètent régulièrement, à peu de chose près. 
C'est l'occasion ou jamais d'utiliser, pour la copie au 
clavier, une autre particularité de la Macro 0 : écrire le 
groupe de caractères une seule fois, mettre le curseur sur le 
premier caractère, et répéter G/ (c'est-à-dire <read>} jusqu'à 
la fin du groupe à recopier. Maintenant la Macro 0 contient 
ce groupe, qu'on peut reproduire autant de fois qu'on le 
désire en faisant #0. Puis, en mode recouvrement, on 
apportera rapidement les quelques retouches 
supplémentaires. 


Dans le prochain numéro, nous vous présenteront une 
macro plus élaborée, avec recours à des macros 
conditionnelles, au chaînage et à l'incrémentation de 
variables. 

Elle permettra, en une seule commande €, d'aller chercher 
une adresse dans une base de données d'adresses, d'ouvrir un 
fichier traitement de texte et de faire la mise en page d'une 
lettre-type contenant vo#e en-tête, l'adresse du destinataire 
choisi et la date ; petit raffinement : cette macro par la 
même occasion (et sans intervention supplémentaire) 
renommera le fichier træitement de texte ouvert en lui 
donnant le nom qui figure dans l'adresse. 

Les deux fichiers de macros AND.OR.ROUND et 
COMPTE.MOTS, prêts à l'emploi, sont inclus dans la 
disquette d'accompagnement de ce numéro de Pom's. ä 


HGR/Minitel sur //c 


Sur les Apple //c, la configuration de 
l'interface est perdue à chaque PR&£. 
Aussi, dans le programme de 
transformation d'images HGR en 
images semi-graphiques Minitel 
(Pom's 33), il convient de modifier 
les lignes suivantes : 


40080 PRINT CHR$(4)"PR£2": PRINT 
CHR$ (1) "1D"CHR$S (1) "3P"CHRS (1 
JS EN 

63040 PRINT CHR$(4)"PR£2": PRINT 
CHR$(1)"1D"CHR$S (1) "3P"CHRS (1 
)JH8 A" 


Sur la disquette d'accompagnement 
de la revue, ce petit problème avait 
été réglé. 


















J.-L. Bazanegque, C. Piard 
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bjectivement, l'importance et les 

à ressources des librairies Pom_Link ne 
les destinaient pas a priori à une 
publication dans les pages de Pom’s 
mais plutôt en logiciel édité à part. 
Pom's se devait toutefois à la fidélité 
de ses lecteurs ; aussi, ce serveur 
Vidéotex vous est proposé en deux versions qui 
satisferont les besoins de chacun. 


La version 2.1 dont nous discuterons ici regroupe une 
quarantaine d'instructions nouvelles, orientées télématique, 
ajoutées à celles de votre Basic (AppleSoft sur l'Apple //, 
Basic Microsoft 2.0 et plus sur le Macintosh). Cette 
version comporte le nécessaire à la réalisation d'un véritable 
serveur Vidéotex qui n'aura rien à envier aux serveurs du 
3615. Pom_Link 2.1 est publiée dans ces pages, donc aussi 
sur les disquettes d'accompagnement Macintosh et Apple //. 
Les sources de la version Macintosh, beaucoup trop 
volumineux, n'ont pas pu être placés dans ces pages, mais 
ils sont toutefois sur la disquette Mac 34. 

La version 3.0, disponible en produit à part, ouvre la porte 
au mode téléinformatique (style CalvaCom, mode ASCII 
80 coïjonnes) mais va également plus loin dans 
l'exploitation du mode Vidéotex. Elle donne également à 
l'écran de l'ordinateur serveur un écho des entrées/sorties 
(utiles pour rechercher les bugs). 


Pourquoi des librairies ? 


Certes, Pom’s pouvait publier comme produit unique et 

final le répondeur télématique donné en exemple mais le 

résultat aurait été figé. De nouvelles instructions ajoutées 

au Basic peninettent à chacun : 

+ de modifier simplement ce répondeur et de l'adapter à ses 
besoins ; 

+ de crécr son propre serveur spécialisé. 

Les librairies permettront de mettre en œuvre votre 

imagination. De plus, ne doutons pas qu'elles serviront de 

base à bien d'autres programmes dans les prochains 

numéros. 
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qui servent 





Que font-elles ? 


Chaque routine Pom_Link a une fonction d'envoi et/ou de 
réception de caractères vers ou depuis le Minitel ‘servi’. 
Ainsi, il est plus agréable d'écrire dans son programme 
Basic: 

DEPLACE 1, 16 

pour positionner le curseur en ligne 1, colonne 16 plutôt 
que la suite d'instructions : 

ouvrir port série en sortie 
PRINT CHR$(31) CHR$S({64+1) 
fermer port série 

Réaliser un ‘INPUT sur le Minitel servi en Basic est quasi 
irréalisable alors que celui proposé ici est déjà beaucoup 
plus puissant que celui de l'AppleSoft. Chaque nouvelle 
fonction offre à chacun la possibilité de piloter un serveur 
sans pour autant maïñriser les égarements de la norme (?) 
Vidéotex ; il faut toutefois en dire un mot. 


CER$ (64+16) 


Le Vidéotex 


Dans le descriptif de chaque instruction figurent souvent des 
remarques du fait de contraintes Vidéotex, et il faudra 
pardonner aux librairies de n'avoir pas totatement supprimé 
la lourdeur du système. La couleur du fond qui repasse au 
noir lors d'un déplacement, le soulignement qui n'est validé 
qu'après affichage d'un espace par exemple sont à prendre en 
considération lors de la programmation. Conséquence de ces 
petites contraintes, certaines insiructions ne fonctionne pas 
— Où au moins pas normalement pour certaines — en local, 
c'est-à-dire Minitel serveur non connecté : cela compliquera 
légèrement la mise au point. 


Mise en œuvre... 


Une syntaxe commune à l'Apple // et au Macintosh à été 
retenue et, pour ne pas dupliquer les exemples, voici le 
mode d'utilisation sur chaque appareil : 


sur l'Apple // 


La première instruction du programmc Basic serveur doit 

être la suivante : 

IF PEEK (104) * 266 + PEEK (103) < > 
7681 THEN POKE 103,1: POKE 104,30: 
POKE 7680,0: PRINT CHR$(4) "-nom" 
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où nom est le nom de votre programme Basic. 
La ligne suivante sera : 
PRINT CHR$(4)"-POM.LINK.2.1" 
Les nouvelles instructions sont alors disponibles avec la 
syntaxe suivante : 
Instruction dans le mode d'emploi de Pom_Link : 
ALERTE "interdit",1 
Sur l'Apple // : 
& ALERTE, "interdit",1 


Autrement dit, les mots-clé des nouvelles instructions sont 
précédés de “&” et suivis de “,”. 


sur le Macintosh 

L'instruction suivante devra être placée avant l'occurrence de 
la première instruction de Pom_Link utilisée : 

LIBRARY "Pom Link 2.1" 

Dès lors, les nouvelles instructions sont disponibles telles 
qu'elles sont décrites dans leur mode d'emploi : 

ALERTE "Interdit",1 

à condition toutefois d'avoir placé au début de votre 
programme l'instruction du Basic Microsoft : 

DEFSNG A-Z 

ou 

DEFDBL A-2 

Si vos habitudes vous conduisent à utiliser DEF INT (ce 
qui est, à notre humble avis, la meilleure solution) ou 
DEFSTR, il vous faudra placer un point exclamation ‘!° 
ou — mais moins efficace — un dièse ‘#” juste après le nom 
de l'instruction. Vous obtiendrez alors : 

ALERTE! "Iinterdit",1 

ALERTE*# "Interdit",1 

Notons enfin que le nom des instructions peut être saisi 
indifféremment en majuscules ou minuscules ; ainsi : 
AfficheR! "Bonjour chez vous..." 

est aussi valide que 

AFFICHER! "Bonjour chez vous..." 


G 


PoM’s SUR MINITEL : | 
(1) 39 53 04 40 


DES AUJOURD'HUI, NOUS RESERVONS CE NOUVEAU | 
NUMERO DE TELEPHONE A VOS MINITELS. 
TROUVEREZ A TITRE DE DEMONSTRATION LE 
REPONDEUR TELEMATIQUE DE CE NUMERO. 
NOUS Y AVONS ADJOINT UN MODULE SUSCEPTIBLE 
D'ENREGISTRER DES COMMANDES. 


Optimiser HGR/Minitel 


En ajoutant la ligne suivante au 
programme de conversion 
HGRMinitel du numéro 33 de Pom's, 
on gagne un temps précieux : 










50135 IF MN% THEN 50160 


Pour convertir Lady, il faut avec cette 
ligne 2'55, et 4'45 sans. 


G. Lauvergnier, Rennes 


ACCEPT (ne fonctionne pas en local) 


Syntaxe de l'instruction 

ACCEPT colonne,ligne,mode,sollicitation longueur, 
reiour. état 

But 


Gère une zone de saisie contrôlée. 


Explications 

colonne et ligne sont des variables ou expressions entières 
indiquant la position de la zone de saisie sur l'écran du 
Minitel. colonne doit être compris entre 1 et 39 inclus. 
ligne doit être compris entre 1 et 24 inclus. 

mode est une variable ou expression entière désignant la 
taille des caractères utilisés : 

* mode = 0 : taille norinale ; 

*_ mode = 1 : double hauteur. 

sollicitation est une variable ou expression chaîne qui sera 
affichée avant la zone de saisie proprement dite. Le nombre 
de caractères de sollicitation doit être compris entre O et 39 
inclus. 





Vous Y 


(' 
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longueur indique le nombre maximum de caractères qu'il 
sera possible d'entrer dans la zone de saisie. Afin de 
matérialiser la zone, ACCEPT affiche autant de points que 
nécessaire. {ongueur doit être compris entre 1 et 39 inclus. 
retour estune variable chaîne dans laquelle sera retournée Îa 
chaîne de caractères entrée. Si la variable chaîne retour n'est 
pas vide, son contenu sera utilisé comme texte ‘par défaut’ 
et affiché en début de zone de saisie. La longueur de la 
chaîne de caractères représentée par retour ne peut pas être 
supérieure à la longueur de la zone de saisie. 

état est une variable entière indiquant les conditions de 
sortie de l'instruction : 


* état=0: pas de caractère saisi depuis plus de 2 minutes 
(voir le paragraphe “Côté utilisateur”) ; 

+ état= 1: sortie par ENVOI ou ‘retour-chariot ; 

* état=2: sortie par RETOUR ; 

+ état=3: sortie par REPETITION ; 

+ état=4: sortie par GUIDE; 

« état= 5: sortie par ANNULATION (voir le paragraphe 
“Côté utilisateur”) : 

+ état=6: sortie par SOMMAIRE ; 

+ état= 7: sortie par SUITE ; 


+ état=8 : sortie par CONNEXION. 


Remarques 

+ la somme de colonne + longueur de sollicitation + 
longueur ne doit pas être supérieure à 40 ; 

+ ACCEPT provoque le passage en mode texte ; 

+ le curseur est invisible lors du retour au programme 
Basic. 


Côté utilisateur 


+ ACCEPT place le curseur sur la première position de la 
zone de saisie ou, si une chaîne par défaut est utilisée, 
sur la position suivant cette chaîne ; 

+ si l'on tente d'entrer plus de caractère que n'en prévoie la 
zone de saisie, ACCEPT émet un ‘bip’ et affiche le 
message “Fin de zone” dans la ligne 0 ; 

+ la touche CORRECTION déplace le curseur d'une 
position vers la gauche en effaçant un caractère. Si le 
curseur se trouve sur la première position de la zone de 
saisie, une action sur la touche CORRECTION 
provoque l'affichage du message “Rien à effacer” dans la 
ligne CG ; 

+ si le curseur ne se trouve pas sur la première position de 
la zone de saisie, une action sur la touche 
ANNULATION vide la zone de saisie et place le curseur 
sur la première position. Si le curseur se trouve sur la 
première position de la zone de saisie, ANNULATION 
provoque un retour au programme Basic avec état = 5 ; 

* toutes les touches de fonction provoquent un retour au 
programme Basic sauf CORRECTION, et 
ANNULATION dans le cas cité précédemment ; 

« si le clavier du Minitel n'est pas sollicité pendant une 
minute, ACCEPT émet un ‘bip’ et affiche le message 
“Déconnexion imminente” dans la ligne ©. Si rien ne se 
passe pendant la minute suivante, il y a retour au 
programme Basic avec état = 0 ; 

* avant retour au programme Basic, les points de la zone 





= ——  ——  — ————  — ——— —— —————————————.. —— —— —  —————————— —— 


de saisie situés sur des positions inutilisées sont 
effacés ; 

-« lorsqu'un message est affiché dans la ligne 0, une action 
sur Le clavier du Minitel provoque l'effacement de ladite 
ligne ; 

+ les caractères ‘,” et ‘:’ sont remplacés par un point (*.”) 
(uniquement avec l'Apple // comme serveur). 


Exemples 

10 REM Exemples d'utilisation d'ACCEPT 
20 ACCEPT 5,8,1,Nom 12, CHS, ETS 

30 ACCEPT CO$,LI$+1,1,A$+": ",10,C$,ET% 
40 ON ET$+1 GOSUB 100,200,300,400,500,.. 


Voir aussi ACCEPTE, SAISIE et SECRET. 





ACCEPTF (ne fonctionne pas en local) 


Syntaxe de l'instruction 
ACCEPTF état 


But 


Attend pendant 2 minutes maximum une action sur une 
touche de fonction. 


Explications 
état est une variable entière contenant, au retour, le code de 
fa touche de fonction : 


+ état=0: pas de caractère saisi depuis plus de 2 minutes 
(voir le paragraphe “Côté utilisateur”) ; 

+ état=1: ENVOI ou ‘retour-chariot ; 

+ état-2: RETOUR; 

+ état= 3: REPETITION; 

« état= 4: GUIDE:; 

+ état= 5: ANNULATION; 

+ état=6: SOMMAIRE ; 

° état= 7: SUITE; 

+ état=8: CONNEXION; 


+ état=9: CORRECTION. 


Côté utilisateur 

Si le clavier du Minitel n'est pas sollicité pendant une 
minute, ACCEPT émet un ‘bip’ et affiche le message 
“Déconnexion imminente” dans la ligne 0. Si rien ne se 
passe pendant la minute suivante, il y a retour au 
programme Basic avec état = 0. 


Exemple 
10 REM Exemple d'utilisation d'ACCEPTF 
20 ACCEPTF ET% 


Voir aussi ACCEPT, SAISIE et SECRET. 
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AFFICHE 


Syntaxe de l'instruction 
AFFICHE chaîne [;] (sur l'Apple //) 
AFFICHE chaîne (sur le Macintosh) 


But 


Affiche une chaîne de caractères sur l'écran du Minitel 
utilisateur, à paitir de la position courante du curseur. 


Explications 

chaîne est une variable ou une expression chaîne. Les 
caractères portant des codes différents sur 
l'ordinateur-serveur et le Minitel sont recodés. Sur 
l'Apple //, AFFICHE fonctionne comme un PRINT : un 
retour chariot est généré s'il n'y a pas de point-virgule à la 
fin de l'instruction ; seule la chaîne est affichée dans le cas 
contraire. Sur le Macintosh, seule la chaîne est affichée. 


Remarque 

Aux éventuels ‘retour-chariot’ (ASCII 13) contenus par la 
chaîne de caractères sont ajoutés des ‘Line-feed’ (ASCII 10). 
Ceci autorise l'envoi direct d'un fichier. Par exemple, sur le 
Macintosh : 

AFFICHE INPUTS$S({LOF({1),1) 

envoi la totalité du contenu du fichier #1 sur l'écran du 
Minitel. 





Exemples 

10 REM Exemples d'utilisation d'AFFICHE 
20 AFFICHE "Début"; (uniquement Apple //) 

30 AFFICHE “Page "+STRS(NP%) 

40 AFFICHE C$ 


Voir aussi AFFICHER, ALERTE, CHARIOT, MTH. 





AFFICHER (uniquement Macintosh) 


Syntaxe de l'instruction 
AFFICHER chaîne 


But 
Identique à AFFICHE mais ajoute un ‘retour-chariot’ à la 


fin de la chaîne de caractères. 


Voir aussi AFFICHE, ALERTE, CHARIOT. 


ALERTE 


Syntaxe de l'instruction 
ALERTE message,bip 


But 
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Affiche un message d'alerte danslaligne O0. | 


Explications 
message est une variable ou une expression Chaîne. la 
longueur de la chaîne de caractères doitêtre comprise entre 
0 et 36 inclus. Les caractères portant des codes différents 
sur l'ordinateur-serveur et le Minitel sont recodés,. 

bip est une variable ou expression entière qui indique si le 
message doit être accompagnés d'un ‘bip sonore : 

bip = 0 : pas de ‘bip’; 

bip <> 0 : émission d'un ‘bip’. 


Remarques 

-« laligne O est effacée avant affichage du message d'alerte ; 

. ilest possible d'utiliser ALERTE pour effacer la ligne O 
en passant une chaîne de longueur 0 comme message ; 

. la position courante du curseur est rétablie après 
exécution de l'instruction ALERTE. De même, 
l'ensemble des attributs Vidéotex sont préservés et 
restitués. 


Exemples 

10 REM Exemples d'utilisation d'ALERTE 
20 ALERTE "Touche"+A$({(T$#)+"invalide“,B% 
30 ALERTE CH$,0 

40 ALERTE "Communication interrompue",1i 


Voir aussi AFFICHE, AFFICHER, MTH 


APPEL 


Syntaxe de l'instruction 
APPEL état 


But 
Détecte la présence — ou l'absence - d'un appel 
téléphonique. 


Explications 

état est une variable entière contenant, au retour : 
+ O si aucun appel est détecté ; 

+ 1 si un appelest détecté (-1 sur le Macintosh). 


Remarque 

Si APPEL détecte quelque chose, l'instruction s'assure de la 
validité de l'appel en éliminant les impulsions inférieures à 
25 centièmes de seconde. 


Exemples 

10 REM Exemples d'utilisation d'APPEL 
20 APPEL ET*% 

30 IF NOT ET% TEEN 20 

40 REM APPEL 
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BAS (ne fonctionne pas en local) 


Syntaxe de l'instruction 
BAS nombre 


But 
Décale l'écran Vidéotex vers le bas. 


Explication 

nombre est une variable ou expression entière qui indique 
l'amplitude du décalage en lignes. nombre doit être compris 
entre 0 et 24 inclus. 


Remarque 
BAS vide le tampon d'entrée des caractères (voir PURGE 
pour le Macintosh). 


Exemples 

10 REM Exemples d'utilisation de BAS 
20 BAS 10 

30 BAS N$%+10 

40 BAS N$ (A%) 


Voir aussi HAUT. 


BIP 


Syntaxe de l'instruction 
BIP 


But 
Provoque l'émission d'un ‘bip’ sonore. 


Exemple 
10 REM Exemple d'utilisation de BIP 


20 BIP 


Voir aussi ALERTE. 





CADRE 


Syntaxe de l'instruction 
CADRE x},71,x2,y2,ype.lignage,couleur C,couleur F 


But 
Trace un cadre à l'écran du Minitel utilisateur. 


Explication 

x1, y1,x2 et y2 : coordonnées du rectangle dans lequel doit 
s'inscrire le cadre. x1 et x2 doivent être compris entre 1 et 
40 inclus. yZ et y2 doivent être compris entre 1 et 24 
inclus. 


type est une variable ou expression entière qui indique le 
type de cadre à afficher : 


Type=0 Type= Type=2 


Q[I0 


lignage est une variable ou expression entière qui indique si 
le cadre doit être tracé avec des caractères semi-graphiques 
joints ou disjoints : 

+ lignage = 0: caractères joints ; 

* _lignage <> 0: caractères disjoints. 

Si Type = 2, lignage est ignoré. 

couleur C est une variable ou expression entière 
représentant la couleur des caractères ; 

couleur F est une variable ou expression entière 
représentant la couleur de fond : 





° O: noir 0% de gris 

* 1: rouge 50% de gris 
+ 2:vert 70% de gris 
+ 3: jaune 90% de gris 
+ 4:bleu 40% de gris 
+ S:magenta 60% de gris 
* 6:cyan 80% de gris 
+ 7: blanc 100% de gris 
Remarques 


+ le rectangle minimum est de 3 caractères par 3 ; 

+ _ après affichage du cadre, le curseur est placé dans l'angle 
supérieur gauche du cadre ; 

- lors du retour au programme Basic, le Minitel utilisateur 
est en mode texte, curseur invisible. 


Exemples 

10 REM Exemples d'utilisation de CADRE 
20 CADRE X1%,Y1%,X2%,Y2%,T%,L%,C%,F% 
30 CADRE 10,A%+9,B%,24,1,1,C%+2,F%(A%) 


Voir aussi VIDRECT. 





CHARIOT 


Syntaxe de l'instruction 
CHARIOT [nombre] 


But 
Provoque nombre ‘retour-chariot”. 


Explications 
nombre est une variable ou expression entière facultative 
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qui indique le nombre de retours à la ligne à effectuer. Si 
nombre est omis, CHARIOT provoque un seul retour à la 
ligne. nombre doit être compris entre O et 24 inclus. 


Exemples 

10 REM Exemples d'utilisation 
20 REM de CHARIOT 

30 CHARIOT 

40 CHARIOT 3 

50 CHARIOT N% 

60 CHARIOT N%+2 


Voir aussi AFFICHE, AFFICHER. 





CNXN 


Syntaxe de l'instruction 
CNXN 


But 
Connexion du Minitel serveur. 


Exemple 
10 REM Exemple d'utilisation de CNXN 
20 CNXN 


Voir aussi CNXR, DECNX. 


CNXR (ne fonctionne pas en local) 


Syntaxe de l'instruction 
CNXR état 


But 
Retournement et connexion du Minitel serveur. 


Explication 

Cette instruction est normalement utilisée lorsqu'on a 

détecté un appel téléphonique (à l'aide de l'instruction 

APPEL). 

état est une variable entière dans laquelle on pourra trouver 

au retour dans le programme Basic : 

+ état = 0 si le Minitel de l'utilisateur n'a pas été connecté 
au bout d'une minute (dans ce cas, le Minitel serveur est 
déconnecté) ; 

+ état = 1 (-1 sur le Macintosh} si le Minitel de 
l'utilisateur a été connecté (dans ce cas, un message de 
‘copyright est affiché pendant 4 secondes sur l'écran du 
Minitel utilisateur). 


Remarque 
CNXR vide le tampon d'entrée des caractères (voir PURGE 
pour le Macintosh). 


Exemple = | 
10 REM Exemple d'utilisation de CNXR 
20 CNXR ET®% 





Voir aussi APPEL, CNXN, DECNX. 





CURINVIS 


Syntaxe de l'instruction 
CURINVIS 


But 
Rend k curseur invisible. 


Exemple 

10 REM Exemple d'utilisation 
20 REM de CURINVIS 

30 CURINVIS 


Voir aussi CURVIS. 


CURVIS 


Syntaxe de l'instruction 
CURVIS 


But 

Rend le curseur visible. 

Exemple 

10 REM Exemple d'utilisation de CURVIS 
20 CURVIS 


Voir aussi CURINVIS. 





DECNX 


Syntaxe de l'instruction 
DECNX 


But 
Déconnexion du Minitel serveur et du Minitel uulisateur. 


Exemple 
10 REM Exemple d'utilisation de DECNX 


20 DECNX 


Voir aussi CNXN, CNXR. 
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DEPLACE 


Syntaxe de l'instruction 
DEPLACE colonneligne 


But 
Positionnement du curseur. 


Explications 

colonne et ligne sont des variables ou expressions entières 
indiquant la position du curseur. colonne doit être compris 
entre 1 et 40 inclus. ligne doit être compris entre 1 et 24 
inclus. 


Exemples 

10 REM Exemples d'utilisation 
REM de DEPLACE 

DEPLACE 2,10 

DEPLACE 2,L1% 

DEPLACE CO%+2, L&(N%+1) 


Voir aussi LOCALISE. 





ENLIGNE (ne fonctionne pas en local) 


Syntaxe de l'instruction 
ENLIGNE état 


But 
Permet de s'assurer de la présence du Minitel utilisateur. 


Explication 

état est une variable entière dans laquelle on pourra trouver 

au retour dans le programme Basic : 

+ état= 0 si le Minitel utilisateur ne répond pas ; 

+ état = 1 (-1 sur le Macintosh) si le Minitel utilisateur 
répond nonnalement. 


Remarque 


ENLIGNE vide le tampon d'entrée des caractères (voir 
PURGE pour le Macintosh). 


Exemple 


10 REM Exemple d'utilisation de ENLIGNE 
20 ENLIGNE ET$ 


FIXE 


Syntaxe de l'instruction 
FIXE 


But 
Passe en affichage non clignotant. 
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Exemple 
10 REM Exemple d'utilisation de FIXE 
20 FIXE 





Voir aussi FLASH, PARAMG, PARAMT. 


FLASH 


Syntaxe de f'instruction 
FLASH 


But 
Passe en affichage clignotant. 


Exemple 
10 REM Exemple d'utilisation de FLASH 


20 FLASH 


Voir aussi FIXE, PARAMG, PARAMT. 


GR 


Syntaxe de l'instruction 
GR 


But 
Passe en mode semi-graphique. 


Exemple 


10 REM Exemple d'utilisation de GR 
20 GR 


Voir aussi PARAMG, PARAMT, TXT. 


HAUT (ne fonctionne pas en local) 


Syntaxe de l'instruction 
HAUT nombre 


But 
Décale l'écran Vidéotex vers le haut, 


Explication 

nombre est une variable ou expression entière qui indique 
l'amplitude du décalage en lignes. nombre doit être compris 
entre O et 24 inclus. 


Remarque 
HAUT vide le tampon d'entrée des caractères (voir PURGE 
pour le Macintosh). 
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Exemples 

10 REM Exemples d'utilisation de HAUT 
20 HAUT 10 

30 HAUT N$%+10 

40 HAUT N$(A%) 


Voir aussi BAS. 


IDENT (ne fonctionne pas en local) 


Syntaxe de l'instruction 
IDENT valeur 1,valeur 2,valeur 3.état 


But 
Retourne les trois octets d'identification du Minitel 
utilisateur. 


Explication 

valeur Î est une variable entière dans laquelle IDENT 

retourne le code constructeur du Minitel utilisateur ; 

valeur 2 est une variable entière dans laquelle IDENT 

retourne le type du Minitel utilisateur ; 

valeur 3 est une variable entière dans laquelie IDENT 

Ietourne le numéro de version du Minitel utilisateur ; 

état estune variable entière dans laquelle on pourra trouver 

au retour dans le programme Basic : 

+ érat =0 sile Minitel utilisateur n'a pas répondu ; 

* état = 1 (-1 sur le Macintosh) si le Minitel utilisateur a 
répondu normalement. 


Remarques 

* siétat = 0,1le contenu de valeur 1, valeur 2 et valeur 3 
est indéfini. 

* sur le Macintosh, IDENT vide le tampon d'entrée des 

caractères (voir PURGE). 

certains Minitel sont munis d'un logiciel qui 

ne permet pas l'émission des identificateurs ; 

dans ce cas état sera égal à {. 


Exemple 
10 REM Exemple d'utilisation de IDENT 
20 IDENT V1%,V2%,V3%,ET% 





INIT (uniquement sur l'Apple //) 


Syntaxe de l'instruction 
INIT slot 


But 
Initialise les routines sur le slot indiqué et vérifie 
l'existence du port série. 


Explication 





slot est une variable ou expression entière qui indique quel 
port série devra être utilisé pour les entrées/sorties. 


Exemples 

10 REM Exemples d'utilisation de INIT 
20 INIT 2 

30 INITESS 


Voir aussi SERVOFF. 


INVERSE 


Syntaxe de l'instruction 
INVERSE 


But 
Passe en affichage inversé. 


Exemple 
10 REM Exemple d'utilisation de INVERSE 


20 INVERSE 


Voir aussi NORMAL, PARAMG, PARAMT. 





LIGNE 


Syntaxe de l'instruction 
LIGNE 


But 
Initialise le mode lignage ou souligné. 


Explications 

+ sile Minitel utilisateur est en mode semi-graphique, 
LIGNE passe l'affichage en mode ligné (caractères 
semi-graphiques dis joints) ; 

* si le Minitel utilisateur est en mode texte, 
LIGNE passe l'affichage en mode souligné ; 


Remarque 

Dans le cas du mode texte, LIGNE envoie un attribut latent 
qui ne sera validé par le Minitel utilisateur qu'à la réception 
d'un espace (ASCII 32). 


Exemple 
10 REM Exemple d'utilisation de LIGNE 


20 LIGNE 


Voir aussi PARAMG, PARAMT, SANSLIGNE. 
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LOCALISE (ne fonctionne pas en local) 


Syntaxe de l'instruction 
LOCALISE colonne,ligne,état 


But 
Retoume la position courante du curseur. 


Explication 

colonne et ligne sont des variables entières dans lesquelles 

LOCALISE retourne la position courante du curseur. 

état est une variable entière dans laquelle on pourra trouver 

au retour dans le programme Basic : 

. état= Osile Minitel utilisateur ne répond pas ; 

° état = 1 (-1 sur le Macintosh) si le Minitel utilisateur 
répond nonnalement. 


Remarques 

+ siétat = 0, le contenu de colonne et ligne est indéfini. 

+ LOCALISE vide le tampon d'entrée des caractères (voir 
PURGE pour le Macintosh). 


Exemple 

10 REM Exemple d'utilisation 
20 REM de LOCALISE 

30 LOCALISE CO$,.LI$,ETS% 


Voir aussi DEPLACE. 


MODE 


Syntaxe de l'instruction 
MODE mode 


But 
Change le mode d'affichage. 


Explications 

mode est une variable ou expression entière indiquant je 
mode d'affichage à utiliser : 

- mode=0: caractères nonnaux ; 

- mode=1: double hauteur; 

* mode-2: double largeur; 

+ mode=3: double taille. 


Remarque 
MODE provoque le passage en mode texte. 


Exemples 

10 REM Exemples d'utilisation de MODE 
20 MODE M$ 

30 MODE M$%+A%(B%) 

40 MODE 2 


Voir aussi PARAMT., 
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MTH (uniquement sur l'Apple //) 


Syntaxe de l'instruction 
MTH mode 


But 


Modifie le recodage des caractères issus de l'instruction 
AFFICHE. 


Explication 

mode est une variable ou expression entière qui indique le 
type de recodage de certains caractères : 

- mode = 0 : mode littéraire (par défaut) ; 

*_ mode <> 0 : mode mathématique. 


Apple // Minitel 
littéraire mathématique 
é é | 
è è | 
ç ç \ 
à à @ 
$ 7 ] 
o © [ 
ù ù | 
£ £ # 
» â Ta autres voyelles accentnées : idem 
‘a ä a autres voyelles accentuées : idem 
# t Tr lettres non accentuables : idem 
Remarque 


Tous les Minitels n'ayant pas les mêmes ROM d'affichage, 
les résultats peuvent varier légèrement d'un modèle à 
l'autre. 


Exemples 

10 REM Exemples d'utilisation de MTH 
20 MTH 1 

30 MTH M$ 





NORMAL 


Syntaxe de l'instruction 
NORMAL 


But 
Passe en affichage non inversé. 


Exemple 
10 REM Exemple d'utilisation de NORMAL 


20 NORMAL 


Voir aussi INVERSE, PARAMG, PARAMT. 


———————— 
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PARAMG 


Syntaxe de l'instruction 
PARAMG couleur C,couleur Flignage, flash 


But 


Passe en mode semi-graphique et établit les paramètres 
d'affichage. 


Explications 

couleur C est une variable ou expression entière 
représentant la couleur des caractères ; 

couleur F est une variable ou expression entière 
représentant la couteur de fond ; 


+ O:noir 0% de gris 

* 1: rouge 50% de gris 
* 2: vert 70% de gris 
* 3: jaune 90% de gris 
+ 4:bleu 40% de gris 
+ S:magenta 60% de gris 
* 6:cyan 80% de gris 
+ 7:blanc 100% de gris 


lignage est une variable ou expression entière qui indique si 
les caractères doivent être affichés avec des caractères 
semi-graphiques joints ou disjoints : 

* lignage = 0 : caractères joints ; 

* lignage <> 0 : caractères dis joints. 

flash est une variable ou expression entière déterminant la 
fixité ou le clignotement (inversion des points du caractère 
une fois par seconde) : 

« flash = 0 : caractères fixes ; 

° flash <> 0 : caractères clignotants. 


Exemples 

10 REM Exemples d'utilisation de PARAMG 
20 PARAMG CC%,CF%$,LIS,FL% 

30 PARAMG 7,0,1,1 

40 PARAMG CC$+1,A$(CF%),INT(L%/2),0 


Voir aussi FIXE, FLASH, GR, LIGNE, PARAMT, 
SANSLIGNE, TXT. 
PARAMT 


Syntaxe de l'instruction 
PARAMT mode,couleur C,couleur F,flash 
inversé,souligné 


But 
Passe en mode texte et établit les paramètres d'affichage. 


Explications 
mode est une variable ou expression entière désignant la 
taille des caractères : 


+ mode=0: caractères noimaux ; 
+ mode= 1: double hauteur ; 

+ mode=2: double largeur; 

+ mode=3: double taille. 
couleur C est une variable ou expression entière 
représentantla couleur des caractères ; 

couleur F est une variable ou expression entière 
représentant la couleur de fond; 





+ O: noir 0% de gris 

* 1 :rouge 50% de gris 
+ 2: vert 70% de gris 
+ 3: jaune 90% de gris 
+ 4':bleu 40% de gris 
+ 5: magenta 60% de gris 
+ 6:cyan 80% de gris 
+ 7: blanc 100% de gris 


flash est une variable ou expression entière déterminant la 
fixité ou le clignotement (inversion des points du caractère 
une fois par seconde) : 

* flash = 0 : caractères fixes ; 

* flash <> 0 : caractères clignotants. 

inversé est une variable ou expression entière indiquant si 
les couleurs de caractère et de fond doivent être inversés ou 
non : 

+_ inversé = 0 : couleurs normales ; 

* inversé <> 0 : couleurs inversées. 

souligné est une variable ou expression entière qui indique 
si les caractères doivent être soulignés : 

- souligné = 0 : caractères non soulignés ; 

* souligné <> 0 : caractères soulignés. 


Remarque 

Les paramètres couleur F et souligné constituent des 
attributs latents qui ne seront validés par le Minitel 
utilisateur qu'à la réception d'un espace (ASCII 32). 


Exemples 

10 REM Exemples d'utilisation de PARAMT 
20 PARAMT M$,CC%3,CF%, FL%$,INS%, SO% 

30 PARAMT 2,0,7,1,1,1 

40 PARAMT N%+(V%<3}),0,7,1,1,S0%<>10 


FIXE, FLASH, INVERSE, LIGNE, GR, 
NORMAL, PARAMG, SANSLIGNE, TXT. 


Voir aussi 





PURGE (uniquement sur le Macintosh) 


Syntaxe de l'instruction 
PURGE 


But 
Vide le tanpon d'entrée des caractères. 


Explications 


Les instructions de cette librairie qui reçoivent des 
caractères utilisent un tampon d'enée capable de stocker 
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1024 caractères. Celui-ci permet à l'utilisateur d'anticiper 
les commandes ou le remplissage des zones de saisie. 
Cependant, suivant le type de traitement effectué par le 
serveur, il peut être utile de vider le tampon d'entrée pour 
être sûr de n'exploiter que des caractères ‘frais’ (par exemple 
avec SAISIE). 


Remarque 

Les instructions suivantes vident le tampon d'entrée : 
+ CNXR 

+ BAS 

* ENLIGNE 

° HAUT 

+ IDENT 

+ LOCALISE 

+ ROULEAU 


Exemple 
10 REM Exemple d'utilisation 
20 PURGE 


de PURGE 





REINIT 


Syntaxe de l'instruction 
REINIT 


But 
Réinitialisation du Minitel utilisateur. 


Explications 

Le Minitel utilisateur passe en : 
+ mode Vidéotex 

« caractères blanc 

« fond noir 

* taille normale 

* non souligné 

« noninversé 

° non fiash 


Remarque 
REJINIT émet un espace (ASCII 32) afin de valider le mode 
non souligné et la couleur de fond. 


Exemple 


10 REM Exemple d'utilisation de REINIT 
20 REINIT 


Voir aussi FIXE, FLASH, LIGNE, PARAMT, 


SANSLIGNE, TXT. 


ROULEAU (ne fonctionne pas en local) 


Syntaxe de l'instruction 
ROULEAU condition 
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But 
Passage en mode page ou en mode rouleau. 


Explication ——— 
condition est une variable ou expression entière qui indique 
le type d'affichage à utiliser : 

+ condition = 0 : mode page ; 

* condition <> 0 : mode rouleau. 


Remarque 


ROULEAU vide le tampon d'entrée des caractères (voir 
PURGE pour le Macintosh). 


Exemples 

10 REM Exemples d'utilisation 
20 REM de ROULEAU 

30 ROULEAU 1! 

40 ROULEAU R% 

50 ROULEAU R$%=0 








SAISIE 


Syntaxe de l'instruction 
SAISIE caractère 


But 

Retourne une chaîne contenant le caractère frappé sur le 
clavier du Minitel utilisateur, ou une chaîne vide si aucun 
caractère n'a été sollicité. 


Explications 

caractère est une variable chaîne qui reçoit le caractère 
éventuel. 

Si le code ASCII du caractère retourné est inférieur à 32 
(espace), l'utilisateur a sollicité une touche de fonction : 





+ ASC(caractère) = 1: ENVOI; 

+ ASC(caractère) =2: RETOUR; 

. ASC(caractère) = 3: REPETITION; 
+ ASC(caractère) = 4: GUIDE: 

+ ASC(caractère) = 5: ANNULATION 
. ASC(caractère) =6: SOMMAIRE ; 
. ASC(caractère)=7: SUITE ; 

+ ASC{caractère) =8: CONNEXION; 


- ASC(caractère) = 9 : 
-+ ASC{caractère) = 13 : 


Remarques 


CORRECTION ; 
RETOUR-CHARIOT. 


. sur le Macintosh, lorsque le tampon d'entrée contient 
plusieurs caractères, le caractère retoumé par SAISIE est 
le premier caractère entré non lu (voir PURGE). 

les caractères dont les codes diffèrent sur le Minitel et 
l'ordinateur-serveur sont recodés. 


Exemple 


10 REM Exemple d'utilisation de SAISIE 
20 SAISIE C$ 


Voir aussi ACCEPT, ACCEPTF, SECRET. 
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SANSLIGNE 


Syntaxe de l'instruction 
SANSLIGNE 


But 
Initialise le mode non ligné ou non souligné. 


Explications 

. sile Minitel utilisateur est en mode semi-graphique, 
SANSLIGNE passe l'affichage en mode non ligné 
{caractères semi-graphiques joints) ; 

+ si le Minitel utilisateur est en mode texte, 
SANSLIGNE passe l'affichage en mode non souligné ; 


Remarque 


Dans le cas du mode texte, SANSLIGNE envoie un attribut 
latent qui ne sera validé par le Minitel utilisateur qu'à la 
récept on d'un espace (ASCII 32). 


Exemple 

10 REM Exempla d'utilisation 
20 REM de SANSLIGNE 

30 SANSLIGNE 


Voir aussi PARAMG, PARAMT, LIGNE. 


SECRET (ne fonctionne pas en local) 


Syntaxe de l'instruction 
SECRET colonne,lignemmode,sollicitation.longueur, 
retour,état 


But 
Gère une zone de saisie contrôlée. 


Explications 

SECRET est en tous points identique à ACCEPT, mis à 
par le fait qu'au lieu de retourner les caractères frappés par 
l'utilisateur sur Fécran de son Minitel, on retourne 
uniquement des caractères ‘*” (astérisque). 


Voir aussi ACCEPT, ACCEPIF, SAISIE. 


SERVOFF (uniquement sur Apple //) 


Syntaxe de l'instruction 
SERVOFF 


But 
Libère l'interpréteur ampersand en restaurant l'ancien 
vecteur. 





Exemple 
10 REM Exemple d'utilisation de SERVOFF 
20 SERVOFF 


Voir aussi INIT. 


TXT 


Syntaxe de l'instruction 
TXT 


But 
Passe en mode texte. 


Exemple 


10 REM Exemple 
20 TXT 


d'utilisation de TXT 


Voir aussi GR, PARAMG, PARAMT. 





VIDECRAN 


Syntaxe de l'instruction 
VIDECRAN fcouleur] 


But 
efface le contenu de l'écran en utilisant la couleur désignée. 


Explications 

couleur est une variable ou expression entière optionnelle 
qui désigne la couleur à utiliser pour effacer le contenu de 
l'écran : 


° 0: noir 0% de gris 

* l':rouge 50% de gris 
° 2: vert 70% de gris 
+ 3:jaune 90% de gns 
- 4:bleu 40% de gris 
+ 5:magenta 60% de gris 
* 6:cyan 80% de gris 
+ 7:blanc 100% de gris 
Remarque 


Si couleur est omis, le noir est utilisé. 


Exemples 

10 REM Exemples d'utilisation 
20 REM de VIDECRAN 

30 VIDECRAN 

à0 VIDECRAN 2 

50 VIDECRAN C$% 

60 VIDECRAN C${1%)+1: 


Voir aussi VIDLIGNE, VIDRECT. 
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VIDLIGNE 


Syntaxe de l'instruction 
VIDLIGNE ligne,couleur 


But 
efface une ligne en utilisant la couleur désignée. 


Explications 

ligne est une variable ou expression entière indiquant la 
ligne à effacer. ligne doit être compris entre 1 et 24 inclus. 
couleur est une variable ou expression entière qui désigne la 
couleur à utiliser pour effacer la ligne : 


* O:noir 0% de gris 

* l:rouge 50% de gris 
* 2: vert 70% de gris 
* 3: jaune 90% de gris 
«. 4 :bleu 40% de gris 
* 5:magenta 60% de giis 
* 6:cyan 80% de gris 
+ 7:blanc 100% de gris 
Exemples 


10 REM Exemples d'utilisation 
20 REM de VIDLIGNE 

30 VIDLIGNE LI%,CO*$ 

40 VIDLIGNE 4,3 

50 VIDLIGNE 4,CO%(2) 

60 VIDLIGNE L%$+1,ASC{(N$)-48 


Voir aussi ALERTE, VIDECRAN, VIDRECT. 





VIDRECT 


Syntaxe de l'instruction 
VIDRECT x},y1,x2,y2,couleur 


But 
efface un rectangle en utilisant la couleur désignée. 


Explication 

x1,y1, x2 ct y2 : coordonnées du rectangle à effacer. x] et 
x2 doivent être compris entre 1 et 40 inclus. y1 et y2 
doivent être compris entre 1 et 24 inclus. 

couleur est une variable ou expression entière qui désigne la 
couleur à utiliser poureffacer le rectangle : 


- O:noir 0% de gris 

* l:rouge 50% de gris 
- 2: vert 70% de gris 
+ 3: jaune 90% de gris 
. 4 :bleu 40% de gns 
+ 5:magenta 60% de gris 
« 6:cyan 80% de gris 
+ 7:blanc 100% de gris 
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Remarque 
x2 doit être supérieur ou égal à xl. y2 doit être supérieur 
ou égal à y. 


Exemples 

10 REM Exemples d'utilisation 

20 REM de VIDRECT 

30 VIDRECT X1%,Y1%,X2%,Y2%,CO0% 

40 VIDRECT 10,10,20,15,2 

50 VIDRECT X%{(X1%),3,X%(X2%),20,C%-1 


Voir aussi VIDECRAN, VIDLIGNE. 








Pom_Link 2.1 : les instructions 


ACCEPT colonne, ligne, mede, sellicitatien, lengueur, reteur, état 
ACCEPTF étai 

AFFICHE chaîne [;] (sur l'Apple //) 
AFFICHE chaîne (sur le Macintosh) 
AFFICHER chaîne (uniquement Macintosh) 
ALERTE message, bip 

APPEL état 

BAS nombre 

B1P 

CADRE x, y1, x2, y2, type, lignage, couleur €, couleur F 
CHARIOT [nombre] 

CNXN 

CNXR état 

CURINVIS 

CURVIS 

DECNX 

DEPLACE colonne, ligne 

ENLIGNE état 

FIXE 

FLASH 

GR 

HAUT rnembre 

IDENT valeur 1, valeur 2, valeur 3, état 

INIT slot 

INVERSE 

LIGNE 

LOCALISE colonne, ligne, état 

MODE mode 

MTH mode (uniquement Apple //) 

NORMAL 

PARAMG couleur C, couleur F, lignage, flash 
PARAMT mode, couleur C. couleur F, flash, inversé, souligné 
PURGE (uniquement Macintosh) 

REINIT 

ROULEAU condition 

SAISIE caractère 

SANSLIGNE 

SECRET colonne, ligne, mode, sollicitation, longueur, retour, état 
SERVOPFF (uniquement Apple //) 

TXT 

VIDECRAN [couleur] 

VIDLIGNE ligne, couleur 

VIDRECT xi, y1, x2, y2, ceuleur 




















” crire une routine autonome en assembleur et 
l'appeler depuis le Basic par un CALL ne 
présente que la difficulté de manipuler 
l'assembleur. Ainsi, pour faire un ‘bip’, il 
suffit de lire l'octet $C030 selon un cycle et une 
fréquence données. Depuis le Basic, on l'appellera par 
un CALL adresse_de_ début, C ALL 768 par exemple. 
Si l'on veut depuis le Basic donner à la routine la 
longueur du bip et sa hauteur, le plus simple sera de 
metire ces paramètres à des adresses convenues et 
depuis la routine, d'aller les rechercher aux mêmes 
adresses : 


PORE 6,30 : POKE 7,150 : CALL 768 
Dans la routine, on récupère les paramètres par : 
lda $6 
sta … 





lda $7 
GSr- 


Passer les paramètres 


L'objet de cet article est de montrer (de rappeler ?) 
comment passer des paramètres du Basic à la routine 
assembleur ; pour appeler notre bip par CALL 768, 
LG, AT ou & BIP LG+3, 3 * (HT + K) par exemple. 
Un prochain article présentera le passage aller et retour 
basé sur la réalisation d'un INPUT contrôlé. 


Pour démonstration de cette premère partie, nous 
montrerons un nouveau PRINT, capable d'envoyer 
une chaîne de caractères à un périphérique sans utiliser 
les fastidieux PRINT DS"PR£'slot. Il permettra 
également d'indiquer si les caractères devront être 
envoyés au périphérique avec le bit de poids fort à 1 
ou à 0. Cette caractéristique est capitale pour 
l'émission de codes graphiques vers une imprimante 
puisque les huit bits doivent être significatifs 
(AppleSoft met systématiquement le bit de poids fort à 
1). Cela servira également aux utilisateurs de 
LaserJet+ de Hewlett-Packard pour laquelle le bit 7 
positionné à 1 pose un problème. 

Ce PRINT ne fonctionnera que sous ProDOS en 
raison de la méthode de sortie de caractères adoptée 
mais le principe du passage des paramètres est valable 
également sous DOS 3.3. 


Un nouveau PRINT 


La syntaxe de notre instruction sera : 


Le passa 


Jean-Jacques Colwhir 


ètres 





£& PRINT chaîne, slot, poids fort |;] 
Chaîne sera une variable ou expression chaîne du 
TYpé: 

“He1lo" 

A$ 

A$ (13) + "Hello" 

STR$ (I*2) + LEFTS (A$, 3) 


Slot sera une expression numérique représentant le 
numéro de port du périphérique destinataire, sous la 
forme : 

1 

SLOT 

S(5) 


Poids fort sera également une expression 
numérique qui vaudra 255 ou 127 selon que les codes 
des caractères iront de 128 à 255 ou de O à 127 (pour 
les périphériques qui n'utilisent que 7 bits — Minitel 
par exemple — ce paramètre sera sans effet visible). 


Voici des expressions valides : 

£& PRINT "Noe" + CHR$ (8) + "‘1",1,127 
& PRINT A$(5), SLOT,PF 

& PRINT STR$ (A = B},2,255 


Pour les lignes qui suivent, nous prendrons l'exemple 

de la ligne Basic : 

100 & PRINT "Essai",1, 127 : 
T 

la flèche indique le caractère désigné par le pointeur de 

programme (TXTPTR en $B8, $B9). 


IF ÀA = … 


L'ampersand 


Première étape, l'installation du vecteur ampersand 
(‘&’ ou esperluette). Lorsque l'interpréteur Basic 
rencontre un &, il exécute un saut à l'adresse $3FS. Il 
nous suffit donc d'installer, à cette adresse, un vecteur 
(un saut) qui vise le début de notre interpréteur. Ainsi, 
notre routine prendra en charge l'analyse du 
programme Basic après lecture de l'ampersand. 


Ida £$4C code de jump 

sta $3F5 

Ida f<debut adresse 

sta S$S3Fr6 

lda f£>debut adresse 

sta $3F7 

rts fin d'initialisation 


debut 
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Lors du BRUN (démarrage du programme en 
langage-machine) de notre routine, seule l'installation 
du vecteur sera pratiquée ; on ne sautera à debut que 
lors de la rencontre d'un &. Notons qu'il s'agit là 
d'une méthode brutale : l'ancien vecteur est écrasé 
sans sauvegarde. La bonne méthode, pour que 
plusieurs routines ampcrsand puissent cohabiter 
consiste à noter le vecteur existant et à y faire un saut 
si la commande ne nous concernait pas. 


Après rencontre d'un &, le pointeur de programme est 
disposé ainsi : 
100 & PRINT "Essai",l,127 : IF À = … 

T 
avec dans À le caractère qui suit l'&, en l'occurence, il 
doit s'agir du ‘token’ (code du mot-clé) de PRINT 
c'est-à-dire $BA (pour le trouver, il suffit de taper 
NEW : 10 PRINT et de passer en moniteur pour lire 
les octets à partir de $801). 


debut cmp £$BA 
begq ok 
jmp $SDEC9 SNERR routine qui stoppe le 
programme Basic avec le 
message syntax CrOr) 
ok jsr $Bl CHRGET saisi le caractère 
suivant et avance le pointeur 
de programme d'un octet 


Arrivés ici, nous nous sommes assurés qu'il s'agit 
bicn de PRINT et le TXTPTR se présente ainsi : 
100 & PRINT "Essai",1,127 : IF À =. 

î 
Nous pourrions maintenant par une suite de JSR 
CHRGET saisir les caractères à afficher mais il est 
préférable de faire confiance à l'AppleSoft : 


Ida £0 Réinitialise le calcul des 

Sta $52 chaînes temporaires 

jsr $DD7B  FRMEVL, donne un Syntax 
Error si besoin 


FRMEVL est la routine d'évaluation des formules, ce 
qui permettra l'utilisation d'expression complexe du 
style STR$ (3 * AB) + "ERR" + CHRS$(I0). Elle 
évalue l'expression qui débute sous le TXTPTR et qui 
se termine par une virgule (ou une fin d'instruction ou 
de programme). Le résultat se trouve en FAC, zone de 
6 octets à partir de $9D réservée aussi pour tous les 
calculs sur les nombres en virgule flottante. Si 
l'expression évaluée était une chaîne, et c'est le cas, 
seuls deux octets nous servent : $AO, $AL. Ils 
forment un pointeur sur le descripteur d'une chaîne 
temporaire que FRMEVL a créée à partir des 
constituants de l'expression. 

Le descripteur, pointée par $AO, $A1 se présente sur 
l'Apple / ainsi : 

octet 1 : longueur de la chaîne 

octet 2 : poids faible de l'adresse du premier caractère 

octet 3 : poids fort de l'adresse du premier caractère 


Assurons-nous d'abord que l'expression évaluée par 
FRMEVL était bien une chaîne : 


jsr $pDp6C CHKSTR donne type mis- 
match si ce n'est pas une 
chaîne 


Ceci fait, nous pouvons sauvegarder le pointeur sur le 
descripteur de la chaîne à afficher et nous intéresser 
aux paramètres suivants : 


1da $A0 FACMO, poids faible de 
l'adresse 

sta $85 FORPNT qui reçoit habituel- 
lement le pointeur sur la 
denuère variable utilisée 

Ida $A] poids fort 

sta $86 





Note TXTPTR est maintenant positionné ainsi : 


TOO GS PRINT MESSAal#, 1,127 :" IA A =, 
T 


Pour évaluer le numéro de slot, nous utiliserons 
GETBYTC qui saute un caractère (en l'occurence la 
virgule) et qui évalue l'expression suivant ce 
caractère. Le résultat de cette évaluation doit tenir sur 
un octet (de O à 255) sinon nous aurons un Illegal 
Quantity Error. Le résultat est dans le registre X : 


7e $E6rS  Gctbytc 
stx $6 on stocke en $61e n° de port 


Idem pour le sens du bit de poids fort : 


jsr $E6rS  Gcetbytc 
SÉxmS? on stocke en $7 le sens du 
poids fort 
Nous avons tous les paramètres, vérifions si un “;” 
suit, le TXTPTR se présentant ainsi : 


100 & PRINT "MEssai",l,127 : IF À = 
T 

Il faut lire le prochain caractère du Basic mais sans 
incrémenter le TXTPTR au cas où ce ne serait pas un 
point-virgule. C'est l'objet dc CHRGOT, semblable à 
CHRGET mais sans incrément ; au sortir de 
CHRGOT, le caractère lu cest dans A et le bit Z du 
registre d'état est positionné si on était en fin 
d'instruction. 


Ida £0 initialise le drapeau de retour- 
sta $8 chariot 
jsr $B7 Chrgot 
beg cr si= 0, il n'y avait pas de ";" 
cmp £$3B ÉSECE 07 
bre S1 
jsr $B1 saute le ";" 
jmp pascr 
$1 jmp $DEC9  Syntax Error 
cr dec $8 note qu'il faudra un rctour- 
chariot 


pascr 





Pom's n° 34 


25 





Dans notre exemple, le TXTPTR n'a pas bougé and $7 fort demandé 


puisqu'il n'y avait pas de point-virgule. jsr S$SFDED  Cout 
sortie … 
100 & PRINT "Essai",1,127 : IF À = … É : ; , 
+ Restituons enfin le vecteur de sortie de caractère 
Nous avons tous les éléments ; nous devons les (c'était l'écran 40 ou 80 colonnes ou peut-être un autre 
contrôler : périphérique) : 
Ida $6 sortie lda ancvec restitue l'ancien vecteur 
cmp £8 pas de port au-dessus de 7 sta S$BE30 
bcc portok Ida ancvec+l 
err jmp rgerr donne Range Error sta S$SBE31 
portok lda $7 PF vaut 127 ou 255 rts et revient au Basic 
cmp £$7F n : ; 
p£ok Ajoutons la prise en charge d'un éventuel Range 
cmp ÉSFF | Error : 
bre err sinon Range Error mo 
pfok Es rgerr ida £2 
jmp $BEO9 


Il faut maintenant rediriger la sortie de caractères vers + 

le périphérique choisi. Le mieux, sous ProDOS, est  etle stockage de l'ancien vecteur : 

de remplacer le PR£slot par une modification du  ancvec ds 2 

vecteur de sortie de caractères dans VECTOUT en Co 
$BE30-$BE31 : sauvegarde l'ancien vecteur, 

remplacement par $Cn00, n étant le numéro de port. 
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pfok lda $BE30  sauvel'ancien vecteur Source PRINT.S 
BE Anar Assembleur ProCODE 
Jda S$BE30+1 : or 
sta ancvec+l 1 org $300 
lda £0 installe le nouveau 2 
BA $BE30 0300: A9 4C 3 lda ÉS4C 
= 0302: 8D F5 03 4 sta S3F5 
Ida $6 En $6, c'estlen° de port 0305: A9 10 5 1da Ecdebut 
4 ! 0307: 8D F6 03 6 sta S3r6 
ora £SCO le résultat, c'est Cn ae : on 
sta SBE31 030C: 8D F7 03 8 sta $2F7 
030F: 60 9 Its 
Maintenant, affichons la chaîne en recopiant d'abord  :,,,. & » En 
son descripteur en page 0 : is no "E er 
7 0314: 4C C9 DE 13 jmp  SDEC9 
ldy £2 copie le descripteur a JE 
$s1 Ida ($85),y enpage0 031A: A9 00 16 lda £0 
sta $18 031C; 85 52 D 7 sta $52 
. Y 031E: 20 7B DD 18 jsr SD078 
ey 19 
bpl $1i 0321: 20 6C DD 20 jsr SDBEC 
21 
; 0324: A5 A0 22 ida SAO 
52 iny y=0 0326: 85 85 23 sta 585 
dec $18 longueur chaîne 0328: A5 A1 24 Ida SAI 
mit ein 032A: 85 86 FT sta $86 
26 
ida ($19),y charge un caractère de 1a  oz2c: 20 F5 6 27 jsr $E6FS 
chaîne 032F: 86 06 4 stx $6 
ora £$80 nm. : 0331: 20 F5 E6 30 jsr SESFS5 
and $7 positionne poids fort 0334: 86 07 31 stx S7 
: 1 à 32 
jsr S$PDED  Cout, sortie de caractères RS ne 7 PR dy 
" jap $2 0338: 85 08 34 sta $8 
d 033A: 20 87 00 35 jsr SB7 
; 033D: FO OD 36 beq CR 
: À 3 Ë 033F: C9 358 37 cmp £S38 
| Si demandé, on affiche un retour-chariot à la suite de 0341: no ce 38 Pre (Si 
| la chaîne en veillant au bit de poids fort : 0343: 20 81 00 39 jsr $B1 
? 0346: 4C 4E 03 40 jmp PASCR 
… 41 
fin bit $8 afficher un retour-chariot ? 0349: 4C C9 DE 42 S1 jmp  SbECs 


bpl sortie nonsipositif à LE US 
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034E: AS 06 
0350: C9 68 
0352: 90 03 


0354: 4C AC 03 


0357: AS 07 
0359: CITE 
035B: FO 04 
055D: C9 FF 
035F: DO F3 
0361: AD 530 BE 
0364: 8D B1 03 
0367: AD 31 BE 
036A: 8D B2 03 
036D: A9 00 
036F: 8D 30 BE 
0372: A5 06 
0374: 09 CO 
0376: 8D 31 BE 


0379: A0 02 
037B: B1 85 
037D: 99 18 00 
0380: 88 

0381: 10 F8 


0383: c8 

0384: C6 18 
0386: 30 QC 
0388: B1 19 
038A: 09 80 
038C: 25 07 
038E: 20 ED FD 
0391: 4C 83 03 


0394: 24 08 
0396: 10 07 
0398: A9 8D 
039A: 25 07 
039C: 20 ED FD 


039F: AD Bi 03 
0332: 8D 30 BE 
03335: AD B2 03 
03A8: 8D 31 BE 
03AB: 60 


O3AC: A9 02 
O3AE: 4C 09 BE 


PASCR 


ect 


pertok 


pfok 


$1 


$2 


fin 


sertie 


rgeir 


ancvec 


$6 
£e 
portek 


rgerr 


57 

£S7F 
pfek 
LS$SEFF 
êix 
SBE30 
ancvyec 
SBE30+1 
äancvec+i 


ancvec 
$SBE30 
äncyec+l 
SBE 31 


$SBEOS 
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Pom'sGstibue 
SuperMacro Works 


Après l'article de Damien Nould dans Pom's 
33, et l'éloge qu'en faisait aussi J.Y. Bourdin, 


vous étiez nombreux à rechercher 
vainement SuperMacroWorks chez les 
revendeurs. 


Pom's a obtenu de Beagle Bros la possibilité 
de diffuser ce programme de Randy Brandt 
dans ses versions française et américaine. 


Précisons que, si SuperMacroWorks est bien 
entendu compatible avec toute carte 
d'extension mémoire pour Apple // (cartes 
Apple, Applied Engineering, Checkmate et 
autres), il ne nécessite aucun équipement 
spécial : du moment que vous pouvez 
charger AppleWorks 1.4 tel qu'il est, vous 
pouvez utiliser SuperMacroWorks. 


Pour les techniciens : SuperMacroWorks se 
loge dans la carte langage de la mémoire 
auxiliaire, ce qui n'est pas simple, sachant 
que vous n'avez plus alors de ROM et que 
vous devez utiliser la pile et la page zéro de 
la mémoire auxiliaire. C'est d'ailleurs 
pourquoi AppleWorks renonce à utiliser cet 
espace. Les seules exceptions imaginables à la 


compatibilité avec SuperMacroWorks 
seraient donc pour le propriétaire d'un ][+ 
qui aurait modifié AppleWorks avec 


Plus-Works 2.0 ou le ‘patch’ fourni avec la 
carte Ramfactor d'Applied Engineering (ce 
qui est malin), ou l'improbable propriétaire 
d'un //e qui l'aurait laissé à 64Ko avec une 
carte 80 colonnes non étendue et aurait fait 
l'une des deux modifications précédentes 
pour charger quand même AppleWorks. 


Attention : la version française que nous 
diffusons est la version 1.2. Cette version 
étant débuguée, il ne faut plus faire le patch 
de Pom's 33 page 67. Si vous avez une 
version antérieure, contactez votre 
revendeur. Si vous n'avez que la version US 
de SuperMacroworks, adressez-vous à 
Dimitri Geystor (Pom's 33 page 63). 


Et si vous n'avez pas encore 
SuperMacroWorks.… 


Prix : 500,00 F TTC — abonnés : 450,00 F TTC -— Port 20,00 F 
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omme c'est la 
lecture de l'arti- 
i cle de J. Bourdin 
dans Pom's 33 qui m'a 
fait passer commande au 
père Noël de quelques 
programmes de la série 
des TimeOut de Beagle 

ÿ Bros je n'ai pas 
pu refuser quand 
il m'a demandé 
d'expliquer ici pourquoi je suis 
bien content d'avoir pensé à 
mettre mes sabots dans la 
cheminée. 


Le principe : 
continuer 
AppleWorks 


La série des TimeOut ajoute une 
quantité de fonctions nouvelles à 
AppleWorks, à la fois parfaitement 
indépendantes les unes des autres et 
totalement intégrées aussi bien à 
AppleWorks qu'entre elles : chaque 
disque TimeOut fournit en même 
temps une modification d'AppleWorks 
qui est le noyau intégrateur commun, 
véritable exploit de programmation 
signé Alan Bird, et une nouvelle 
“application” qui se charge en prenant 
une partie du bureau d'AppleWorks, 
fonctionnant en ‘overlay’ (un segment 
de programme chargé momentanément 
du disque) d'AppleWorks. Nul besoin 
de sauver puis recharger l'état présent 
de la mémoire AppleWorks, comme 
avec Pinpoint. 


C'est là évidemment une ouverture 
fantastique pour AppleWorks : loin de 
fournir comme Pinpoint des 
accessoires supplémentaires dans une 
application, ou des applications 























transforine AppleWorks en une sorte 
de super-système d'exploitation 
pilotant des applications intégrées. On 
peut parfaitement imaginer par 
exemple un assembleur TimeOut 
assemblant sous AppleWorks des 
sources constituées de fichiers 
traitement de texte. Disons que 
TimeOut réussit avec AppleWorks, 
sans menus déroulants ni fenêtres, 
mais avec une transparence parfaite, ce 
qui a été raté (à mon humble avis) sur 
IBM avec Windows : un intégrateur 
d'applications. Ou bien disons que, de 
même qu'il existe un “atelier du 
programmeur” (Apple Programmer 
WorkShop) sur GS, il existe 
maintenant un “atelier de l'utilisateur” 
(Apple. works !) sur //c, //e et 
IIGS : on peut tout faire sans sortir 
de son atelier. 


Telle était la philosophie de Bob 
Lissner, l'auteur d'AppleWorks : il 
faut bien sûr intégrer l'interface 
utilisateur, mais ce ne sont pas les 
menus déroulants, souris, fenêtres, 
etc. qui font l'intégration. Il s'agit là 
seulement de l'expression visible 
d'une autre intégration, celle des 
opérations que fait l'utilisateur et des 
données qu'il manipule. Tous les 
“couper-coller”, les accessoires de 
bureau, etc, ne sont qu'un pâle 
substitut, un pauvre “faute de mieux”, 
de l'intégration vraie. C'est parce que 
Beagle est totalement fidèle à cette 
inspiration initiale d'AppleWorks que 
TimeOut est une telle réussite. 

Une conséquence désagréable de cette 
intégration est que la série des 
TimeOut ne marche et ne marchera 
sans doute jamais que sur la version 
américaine 2.0 d'AppleWorks, et pas 
sur la version française 1.4. Non que 
cela soit techniquement impossible : 
mais il faudrait alors adapter et 


extérieures à la première, TimeOut traduire chacune des applications 





Eric Weyland 


TimeOut présentes et futures, ce qui 
représente énormément de travail. 
L'investissement est sans doute trop 
grand pour être rentable (à moins 
qu'un taux spectaculaire de ventes de 
SuperMacroWorks en France n'amène 
Beagle à réfléchir, qui sait ?). 


Second point à savoir : il vous faut de 
la place sur le bureau (de la mémoire). 
Bien sûr, vous pouvez choisir de 
charger en mémoire certaines 
applications seulement au démarrage 
d'AppleWorks, et TimeOut vous 
permet d'appeler ensuite, sous 
AppleWorks, en cas de besoin, une 
autre application depuis le disque (y 
compris le disque Ram type 
Speedisk) ; il vous permet également 
de vider la mémoire et le bureau des 
applications dont vous ne vous servez 
plus, aussi facilement qu'on efface un 
fichier du bureau. Mais une 
application comme TimeOut Graph, 
chargée de faire des graphiques avec 
les fichiers tableur, prend à elle seule 
56Ko sur le bureau d'AppleWorks : 
avec une machine de 128Ko, 
l'Apple// courant, vous ne pourrez 
pas charger, en même temps que 
J'application, le fichier tableur qu'elle 
doit traiter ! 

Il faut donc soit avoir suffisamment 
de mémoire pour ne pas être gêné, 
soit renoncer aux TimeOut et quitter 
AppleWorks pour utiliser des 
programmes indépendants de lui (en 
l'occurrence Visualizer de PBI ou 
Graphic Edge de Pinpoint). Inutile 
donc de préciser que les TimeOut sont 
compatibles avec pratiquement toutes 
les sortes de carte mémoire qui 
permettent d'étendre le bureau 
d'AppleWorks : il s'agit ici d'une 
nécessité. 

Troisième point à savoir : il vous faut 
de la place sur disque pour placer vos 
fichiers TimeOut, puisqu'en fait c'est 
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AppleWorks qui enfle. Si vous avez 
un lecteur 3,5' ou un disque dur, pas 
de problème (les TimeOut sont 
d'ailleurs livrés à la fois sur disquette 
5,25' et sur disquette 3,5"). Si vous 
avez un Méga de Ram, vous pourrez 
vous débrouiller. Mais si vous n'avez 
que 128Ko et deux lecteurs 5,25", il 
va falloir jongler : au début vous 
pourrez placer vos applications 
TimeOut sur votre disque de données. 
Mais elles risquent vite de remplir la 
disquette. Bref, avec les TimeOut, 
c'est non seulement AppleWorks, 
mais l'Apple lui-même qui grandit. 
Les deux faces d'une disquette 5,25 ne 
lui suffisent déjà plus pour stocker 
toutes les polices de TimeOut 
SuperFonts. Il faut donc sérieusement 
songer aux extensions nécessaires 
(mémoire, lecteurs de disques). 


L'indispensable : 
TimeOut 
SuperFonts 


TimeOut Superfonts de Mark 
Simonsen est une vraie merveille. Il 
imprime les fichiers textes 
AppleWorks entièrement en caractères 
graphiques proportionnels, vous 
donne le choix entre quatre qualités 
d'impression possibles, dans les 
“styles” (italiques, inverse, gras, 
souligné, ombré, silhouette, indices, 
exposants) du Mac tous combinables 
sur la même ligne, avec les dessins 
(HGR ou DHGR mais pas SHGR) ou 
les parties de dessins que vous voulez, 
avec les polices que vous voulez 
(jusqu'à 64 dans le même texte : la 
disquette en fournit 47, et d'autres 
disquettes de polices sont promises à 
bon marché). 

Le //e ou //c est twansformé en 
Macintosh ou en GS monochrome : 
d'ailleurs il utilise les polices du Mac, 
qui sont aussi les polices système du 
GS. Seule différence avec le Mac : 
vous travaillez votre texte sur l'écran 
texte d'AppleWorks, et il faut choisir 
l'option “imprimer sur écran” pour 
voir à l'avance ce que donnera votre 
impression graphique, I! reconnaît 
toutes les options d'impressions du 
traitement de texte AppleWorks, 
auxquelles il ajoute les siennes (enfin 
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la vraie justification à droite avec 
AppleWorks !). 11 nous donne accès à 
tous les caractères des polices Mac, et 
utilise des polices de 8 à... 127 
points ! 

Voilà un sérieux concurrent pour 
MultiScribe, Printrix et... GSWrite 
(il imprime plus vite que GSWrite — 
ce qui n'est guère difficile — tout en 
utilisant ses polices, et il reconnaît 
plus de 40 imprimantes). Seul 
problème : pour le moment, il ne 
dispose pas d'éditeur de polices (à ce 
propos : quel éditeur de polices 
système utilisez-vous sur GS ?). Pour 
nos accents, il faut donc par exemple 
remplacer chaque ‘“é” par 
“<x2>N<xl>” avant l'impression 
avec les polices fournies sur la 
disquette. Voilà une belle macro 
SuperMacroWorks à faire... Mais 
Mark Simonsen nous promet pour 
bientôt un Universal Font Editor, 
toujours chez Beagle, qui permettra 
d'éditer les polices Mac ou GS Write, 
y compris sur //e. 


Notons que TimeOut SuperFonis ne 
périme pas GraphMer ge de Pinpoint, 
qui imprime aussi les images dans les 
fichiers AppleWorks, mais imprime 
le texte en mode texte au lieu du mode 
graphique de SuperFonis. GraphMer ge 
s'accommode donc d'une police 
transférée dans l'imprimante, ce que ne 
peut faire SuperFonts. 


Les utiles : 
FileMaster, 
Graph, 
SideSpread, 
QuickSpell 


TimeOut File Master est une 
sorte de Filer évolué ou de Copy ]}{ 
Plus intégré à AppleWorks, mais sans 
fonctions DOS 3.3. Sa fonction de 
backup sélectif des fichiers qui ne sont 
pas déjà en double le rend 
particulièrement utile aux utilisateurs 
de disque dur. Et la possibilité de 
programmer des macros pour lui avec 
SuperMacroWorks me semble fort 
intéressante. 

TimeOut Graph est un bon 
grapheur en DHGR, qui fait vite et 


bien ce qu'on attend de lui, et 
reconnaît l'essentiel des imprimantes. 
Il n'est pas en couleurs, mais 
AppleWorks non plus. J'ai 
particulièrement apprécié sa capacité à 
retracer automatiquement les 
graphiques dès que vous changez une 
valeur dans votre fichier tableur. 
Comme ce fichier est en mémoire en 
même temps que TimeOut Graph, on 
peut percevoir immédiatement ce 
qu'est l'intégration vraie. En fait, 
AppleWorks est tout simplement doté 
désormais de la fonction graphique 
intégrée qui lui manquait. 

TimeOut SideSpread est de la 
même veine : il intègre tranquillement 
à AppleWorks la fonction 
d'impression verticale des fichiers 
tableurs trop larges qui demandait 
auparavant de sortir d'AppieWorks 
pour utiliser FontWorks ou 
SideWays, et reconnaît également 
l'essentiel des imprimantes. 


TimeOut  Quickspell est plus 
rapide que Pinpoint Spelling Checker 
pour corriger vos fautes en anglais, et 
fait aussi bien que Pinpoint 
Document Checker, (même en 
laissant son dictionnaire de 80 G00 
mots sur disque : si vous mettez 
celui-ci sur la carte Speedisk, c'est 
quasiment instantané), le tout sans 
avoir besoin de quitter AppieWorks. 


Le superflu : 
TimeOut 
DeskTools 


TimeOut DeskTooïs me semble 
un produit assez inutile, engendré 
uniquement par la nécessité purement 
commerciale de “couvrir tout le 
terrain” de ce qui se vend déjà bien sur 
Apple // (les accessoires Pinpoint en 
l'occurrence). Les fonctions de ces 
accessoires de bureau sont tout aussi 
bien remplies soit par AppleWorks 
lui-même (la calculette = le tableur ; 
le bloc-notes = le traitement de 
textes), soit par des macros 


SuperMacroWorks (calendrier, 
adresseur d'enveloppes, composeur 
téléphonique, horloge, conversion 
majuscules/minuscules, décompte des 
mots d'un texte, et même l'encryptage 
des fichiers). 
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Beagle ne nous avait pas habitués à ce 
genre de frivolités. Quoi qu'il en soit, 
l'abonnement à Pom's, à ses disques, 
et à ses programmes de macros pour 
SuperMacroWorks est un bien 
meilleur investissement que les 
TimeOut DeskT ools. 

— Mais - me direz-vous — les 
publicités de DeskTools parlent d'un 
utilitaire de conversion des données 
qui permet de passer directement par le 
presse-papier, sans l'intermédiaire d'un 
fichier DIF sur disque, des catégories 
de la base de données dans des 
colonnes du tableur, et vice versa, et 
c'est quand même plus pratique qu'une 
macro qui passe par un disque, même 
un disque Ram comme celui de la 
carte Speedisk, n'est-ce pas ? 

— Bien sûr, mais ce que les 
publicités ne disent pas, c'est que cet 
accessoire est également fourni, en 
prime, avec TimeOut Graphet 
TimeOut UltraMacros… 


PinPoint, 
TimeOut, 
Macros : 


compatibilités, 
incompatibilités 


Une excellente nouvelle : tous les 
TimeOut (sauf UltraMacros) sont 
entièrement compatibles avec 
Pinpoint. À l'installation, vous 
‘patchez’ d'abord AppleWorks avec 
TimeOut, puis vous y installez 
Pinpoint. Une fois AppleWorks 
chargé, il suffit de faire @-P pour 
accéder à Pinpoint, et G-Escape pour 
accéder à TimeOut. 

Du coup (et c'est sans doute pourquoi 
Beagle ne crie pas sur les toits cette 
bonne nouvelle), il me semble que les 
TimeOut qui doublent les accessoires 
de Pinpoint (Correcteur, accessoires de 
bureau par exemple} ne sont pas 
indispensables à qui a déjà Pinpoint. 
D'autant que Pinpoint, lui, s'installe 
aussi dans Basic System, Word 
Perfect et autres, et pas seulement 
dans AppleW orks, et permet avec 
Pinpoint Too!lKit de programmer 
soi-même ses propres accessoires. De 
plus Pinpoint reconnaît aussi 
AppleWorks 1.4 français (même si 





certains des accessoires tels le S peller 
ou les macros KeyPlayer ne marchent 
qu'avec AppleW orks américain). 
Deuxième bonne nouvelle : les 
TimeOut sont compatibles avec 
SuperMacroW orks et AutoWorks. 
Mais. ces deux programmes de 
macros, ainsi d'ailleurs 
qu'UltraMacros, ne sont pas 
eux-mêmes compatibles avec 
Pinpoint (sauf Auto Works qui offre 
une option de choix du banc mémoire 
aux propriétaires d'une carte 
d'extension mémoire type RamWorks 
ou MultiRam sur //e ou //c). Les 
gourmands qui voudront avoir tout en 
même temps (Macros ET accessoires 
Pinpoint ET applications TimeOut), 
devront donc utiliser KeyPlayer, le 
programme de macros de Pinpoint. 
Mais... KeyPlayer n'automatise que 
les fonctions AppleW orks, pas celles 
de Pinpoint ni celles de TimeOut, et 
ne marche pas avec AppleWorks 
français. 


Bien entendu vous êtes complètement 
perdu dans le dédale des infonnations 
qui précèdent : cela prouve que vous 
êtes normalement constitué, j'ai du 
mal à m'y retrouver moi-même. Ne 
nous plaignons pas trop de notre 
diffculté à comptabiliser notre 
fortune, et simplifions. 


Si vous utilisez AppleWorks 1.4 
français, vous ne pouvez rajouter à 
AppleW orks qu'un seul programme de 
macros, SuperMacroW orks, et un seul 
programme d'extensions, Pinpoint. 
Vous ne pourrez pas les utiliser en 
même temps, il faudra quitter l'un 
pour utiliser l'autre. Et vous n'aurez 
accès qu'à certains accessoires de 
Pinpoint. 


Si vous utilisez AppleWorks 2.0 
américain, le tableau joint à cet article 
devrait vous éclairer un peu plus. 


UïtraMacroWorks 
ou... 
SuperMacroWorks ? 


TimeOut UltraMacros, le dernier-né de 
Randy Brandt, est bel et bien encore 
plus doué que son aîné 
SuperMacroW orks. Mais il partage 
avec lui le tempérament fier et 


indépendant de son auteur. Car, quoi 
qu'en dise Beagle, ce n'est pas 
vraiment une application TimeOut 
comme les autres. Il ne se loge pas 
dans le bureau d'AppleWorks, mais 
dans la place laissée libre par celui-ci 
(la carte langage de la mémoire 
auxiliaire : c'est d'ailleurs pourquoi il 
est le seul TimeOut qu'on puisse 
recommander au même titre que 
SuperMacroW orks à ceux qui n'ont 
que 128Ko de mémoire). Il n'est pas 
un subalterne docile qui reste à sa 
place tant qu'on ne l'appelle pas, 
comme les autres TimeOut. Bien 
entendu il est compatible avec les 
autres TimeOut : mais c'est pour les 
commander. Il m'a fallu fouiller, mais 
j'ai pu découvrir page 26 de la 
documentation une de ses fonctions 
les plus intéressantes : il automatise 
également les fonctions des 
applications TimeOut. 

UlraMacros est une sorte de langage 
de programmation complet pour 
AppleW orks et TimeOut qui intègre 
toutes les commandes de l'Applesoft, 
y compris les manipulations de 
chaînes, et en rajoute même (IF 
THEN ELSE). Il permet d'introduire 
ses propres routines machines dans 
AppleW orks avec les macros Peek, 
Poke et Call, de créer des macros avec 
é et G, des “macros-réveil” qui se 
déclenchent à l'heure choisie, des 
“fichiers-tâches” qu'on lance depuis le 
sélecteur du ProDOS, il éteint 
provisoirement l'écran quand vous 
allez prendre un café, il corrige le bug 
du Control-à dans la définition des 
codes imprimantes. 


Mais. il ne reconnaît pas la version 
française 1.4 d'AppleWorks, ni les 
macros déjà existantes de 
SuperMacroW orks, françaises ou non. 
Les macros que vous avez et aurez 
pour la version française de 
SuperMacroW orks ne tourneront pas 
sur UltraMacros. J'ai essayé de 
traduire les macros agenda de Dimitri 
Geystor : c'est un joli casse-tête (il 
faut traduire d'abord les commandes 
AppleWorks 1.4 VF en commandes 
AppleWorks 2.0 US, traduire ensuite 
les commandes SuperMacroWorks VF 
en commandes SuperMacroW orks 
US, traduire enfin les commandes 
SuperMacroWorks en commandes 
UitraMacros ?). 
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SuperMacroWorks vous permet de 
transférer une police Power Print pour 
l'imprimante au chargement 
d'AppleWorks, ce quUltraMacros ne 
permet plus. Enfin — et surtout - un 
fait que Beagle  s'abstient 
soigneusement de dire, et que doivent 
donc crier sur les toits les utilisateurs 
qui n'aiment pas ce genre de 
cachotteries : Super MacroWorks aussi 
automatise les applications TimeOut ! 
Eh oui : quand la légion des TimeOut 
s'est formée, son commandant était 
déjà là ! 

UltraMacros me semble donc surtout 
destiné aux fanatiques de la 
programmation et du “bidouillage” qui 
voudraient un autre programme, en 
plus de Super MacroWorks, pour créer 
des applications spéciales en anglais 
seulement. 

Si vous tenez absolument à 
UïtraMacros, il vous suffira d'envoyer 
22,5 dollars à Beagle en même temps 
que votre disque original (version US) 
de SuperMacroWorks. 


On est prié de 
ranger soi-même 
son bureau 


En admettant que vous ayez un bureau 
(une mémoire) de taille suffisante, 
vous avez tellement d'accessoires et 
d'applications à y mettre qu'un sérieux 
problème de rangement se pose. La 
Ram supplémentaire doit à la fois 


À F compatible a avec — |SuperMacroWorks|  UltraMacros AutoWorks KeyPlayer 


FT 2.0 
seul 


AppleWorks 2.0 
avec Pinpoint 


AppleWorks 2.0 
avec TimeOut 


AppleWorks 2.0 avec 
Pinpoint ET TimeOut 


Pilote AppleWorks ET 
les fonctions TimeOut 


vous servir à étendre le bureau 
d'AppleWorks, à sauver les fichiers 
transitoires (fichiers ASCII, fichiers 
DIF) utilisés pour communiquer entre 
deux fonctions d'AppleWorks, à 
entreposer provisoirement la mémoire 
de travail AppleWorks que Pinpoint y 
sauve de temps en temps, à stocker 
les applications TimeOut et les 
accessoires Pinpoint, et même à 
garder en permanence sous la main 
ProDOS, un sélecteur de programmes 
et vos applications favorites (dont 
AppleWorks lui-même bien sûr). 


1024Ko, c'est vraiment le 
minimum, mais il reste le 
rangement... Aïe ! 


En fait, le problème est plus simple 
qu'il n'y paraît : il se résume au 
“partitionnement”, ce barbarisme 
désignant le partage de la mémoire 
entre AppleWorks et son bureau d'un 
côté, le disque Ram de l'autre. Sur le 
GS, pas de problème : le tableau de 
bord est là pour cela. Si vous avez 
une carte mémoire type Multi Ram de 
Checkmate, RamWorks, Z-Ram ou 
RamF'actor d'Applied Engineering, les 
logiciels d'installation du disque Ram 
et de modification d'AppleWorks 
pernettent ce “partitionnement”. Si 
vous avez le nouveau // un Méga ou 
une carte type Apple dans votre //e, 
AppleWorks dévore toute la place 
disponible sur la carte pour son 
bureau, et... bigre, on ne peut plus 
rien ranger du tout ! 


La solution consiste à ‘patcher’ 
AppleWorks de façon à limiter son 
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appétit de mémoire, avant toute 
modification par SuperMacroWorks, 
TimeOut et/ou Pinpoint. Deux 
programmes du domaine public se 
chargent de ce tavail pour nous. L'un, 
publié par Steve Stephenson dans 
Open Apple volume 3, modifie 
AppleWorks 2.0 américain. L'autre, 
publié par l'Écho des Apple d'Octobre 
87, est l'adaptation du premier à 
AppleWorks 1.4 français par J.F. 
Bourdin. Les colonnes de Pom's 
n'étant pas destinées à être remplies de 
listings de programmes du domaine 
public, nous ne pouvons les 
reproduire ici. Mais nous les avons 
ajoutés gracieusement, en prime, SOUS 
les noms de APLWorkS2.0.MOD et 
APLWorkS1.4.MOD, sur la face 
ProDOS de la disquette Pom's 34 … 
Bien entendu, ne les utilisez que sur 
une copie de votre disquette 
AppleWorks ! 


Conclusion : 
innovation ou 
conformisme ? 


Vous comprenez maintenant pourquoi 
je suis si content de ce que j'ai rouvé 
dans ma cheminée : les TimeOut 
constituent dans leur conception 
fondamentale une innovation 
importante et extrêmement 
prometteuse pour tous les utilisateurs 
d'Apple Il et d'AppleWorks. Cette 
innovation se situant dans la 
continuité de l'esprit même 
d'AppleWorks. 


OUI/NON 
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La réussite commerciale me semble 
promise à cette série, et il faut que 
nous assurions cette réussite : j'incite 
fortement tous ceux que l'anglais ne 
rebute pas trop à s'offrir au moins 
TimeOut SuperFonts en plus de 
SuperMacroWorks. 


Sachons-le, le nom de Beagle Bros ne 
signifie plus la même chose qu'avant : 
ce qui était un atelier d'artisans 
décontractés et sympathiques devient 
maintenant une entreprise moderne et 
performante, rivalisant avecles “pros” 
du logiciel, une puissance 
commerciale qui s'impose par 
l'excellence de ses produits. Beagle 
prend la liste des principaux succès de 
vente en matière de compléments à 
AppleWorks (Copy J{ Plus, Pinpoint 
accessories, MultiScribe, Visualizer, 
SideWays, SuperMacroWorks, 
Pinpoint Spelling Checker) et y 
substitue sa version, intégrée à 
AppleWorks et souvent meilleure que 
les autres. Sincèrement, non 
seulement je n'échangerais pas un GS 
avec AppleWorks, Super MacroWorks 
et TimeOut contre 2 ou 3 barils 
d'ordinateurs-X avec Windows, mais 
je ne l'échangerais même pas contre 
un Mac avec Microsoft Works ! 

Cette stratégie de Beagle est 
certainement la bonne : une telle série 
de bons utilitaires réellement intégrés 
est effectivement un besoin des 
utilisateurs. Certaines de ces 
applications (au moins SuperFonts) 
sont tellement au-dessus du lot de ce 
qui existait déjà qu'elles sont en fait 
des innovations. De plus, cela permet 
d'assurer un bon départ, une bonne 
assise pour la série, ce qui permettra 
des développements nouveaux et 
peut-être plus risqués. Enfin cela 


PoM_LIKK 3.0 : 


La version 3.0 de Pom_Link vaplus loin dans 
l'exploitation des ressources Minitel. Elle 
ouvre laporteàlaréalisationde serveurs très 
puissants. 

Parmi les instructions nouvelles : 


* gestion du mode téléinformatique ; 
* mise en mode téléinformatique, mise en 
mode Vidéotex ; 


succès mérité de 
programmes Beagle ou SoftWare 
Touch déjà existants (AutoWorks, 
FontWorks, Triple Dump) pour faire 
encore mieux. 


utilise le 


Mais reconnaissons qu'il y a un risque 
de glissade vers ce conformisme, ce 
renoncement à la création et à 
l'innovation vraie, qu'engendrent les 
situations de concurrence effrénéc dans 
un marché fermé (allumez votre 
téléviseur sur n'importe quelle chaîne 
pour en voir un exemple). Certaines 
applications TimeOut ne font que 
‘“‘doublonner” purement et simplement 
de bons programmes déjà existants. 
Elles travaillent souvent mieux et 
plus vite, mais elles font la même 
chose elles n'innovent pas 
réellement. L'opinion de J.Y. Bourdin 
qui se réjouissait dans Pom's 33 de la 
fusion Beagle/SoftWare Touch me 
semble globalement confirmée par les 
TimeOut : mais ses craintes sur 
l'orientation exclusivement utilisateur 
imprimée par la nouvelle direction ne 
sont hélas pas non plus sans 
fondements. 

J'en prends pour preuve un signe qui, 
bien que superficiel, me paraît 
néanmoins quelque peu inquiétant : 
fini de rire en lisant les 
documentations Beagle ; plus de 
gravures rétros et de légendes 
humoristiques, plus de complicité 
entre auteur et lecteur, plus de clin 
d'œil ; et plus non plus de cette 
pédagogie souriante qui enseignait 
sans qu'il s'en aperçoive au lecteur à 
maîtriser sa machine, et peut-être, qui 
sait, à devenir un jour un auteur 
Beagle. Nous sommes au royaume des 
“pros” : tenue stricte, documentations 
“clean”, compartiments étanches ; 


utilisateurs, vous êtes priés de parler 
devant l'hygiaphone. 

Gardons cependant confiance : les 
meilleurs programmeurs Beagle (dont 
Rand}), et une majorité d'utilisateurs 
ont toujours “l'esprit Wozniak”. 
Randy Brandt, qui n'a pas perdu 
l'ancienne mentalité, parsème ses 
programmes d'allusions, de clins d'œil 
et d'informations presque cachées. (Un 
conseil : lisez, listez, testez tous les 
fichiers des disquettes TimeOut !). 
Randy a même fondé une 
mini-entreprise, appelée Jem 
Software, qui diffuse pour un prix 
dérisoire des mini-programmes de 
l'ancien style Beagle. Si Hermès le 
Dieu messager y consent, je pourrai 
peut-être vous entretenir un jour d'un 
certain “Patchmania”… 


Des cerveaux comme ceux d'Alan 
Bird,Randy Brandt ou Mark 
Simonsen sont siictement incapables 
de se limiter à améliorer le 
programme du concurrent. Ce sont par 
essence des créateurs : ils ont déjà su, 
avec TimeOut, inventer les chemins 
de l'avenir. Préparons-nous à d'autres 
belles surprises. 


Beagle Bros/Père Noël 

6215 Ferris Square, Suite 100, 
San Diego, CA 92121, USA. 

Jem Software/Randy Brandt 
P.0. Box 20920, El Cajon, 

CA 92021, USA. 

PBI Software, Inc 

H163 Triton Drive, Foster City, 
CA 94404, USA. 

Pinpoint Publishing 

S901 Christie Avenue, Emeryville, 
CA 94608, USA. ä 
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“routine detemporisation pour allouer des 
délais ; 

“affichage des caractères émis et reçus 
(debugging) ; 

* affichage de la date et de l'heure ; 

* instruction accept sans effacement des 
points ; 

* instruction acceptnumérique contrôlée ; 

* instruction spécialisées pour le change- 


ment de la couleur des caractères ou de 
la couleur de fond seule ; 

* idem mais exprimé en pourcentage de 
niveau de gris ; 

* réglage du délai imparti à la connexion ; 

* calcul automatique de la durée de com- 
munication (en minutes entières sur 
l'Apple//,en secondes surta Macintosh ; 

* fonctions utilitaires(surl'Apple//:bugde 
l'ONERR... sur le Macintosh: change- 
ment decurseur,chargementdesicônes 
systéme.) 
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enregistreur, tél 
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e répondeur télématique que nous 
vous proposons ici n'est qu'une 
illustration des multiples possibilités 
des routines Pom_Link 2.1.Il n'en est 
pas moins complet, fiable et convivial. 
P Il se distingue de 90% des 

serveurs-kiosque par la rapidité 
et le contrôle des saisies au clavier : on ne 
risque pas de saisir 8 caractères là où on en 
attend 3 ; ainsi, l'aspect de l'écran est 
protégé. L'utilisateur reste toujours dans 
les zones qui lui sont allouées. 







Fonctions du répondeur 


Le principe de l'ensemble est le suivant : 


Un client, un ami vous appelle en votre absence : 
l'apple // détecte cet appel, connecte votre Minitel. 
Votre client et néanmoins ami reçoit alors ja 
tonalité familière aux habitués du Minitel et 
connecte son propre Minitel (avec la touche 
Connexion/Fin). Le dialogue peut s'engager entre 
votre ordinateur-serveur et l'ami et/ou relation 
d'affaires. 


Il aura la possibilité de laisser un ou plusieurs 
messages qui seront enregistrés sur disque. En fin 
de communication, ordinateur-serveur et Minitel 
se remettent en veille dans l'attente du prochain 


appel. 


Tout ceci se passe alors que vous êtes fort loin de 
votre domicile/bureau/atelier ? Appelez chez vous 
avec un Minitel sous la main : vous pourrez 
demander la lecture, depuis votre lieu de vacances 
par exemple, des messages télématiques qui ont 
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Apple J/ 


tique, interrogeable.. 


Christian Piard 


été laissés sur l'ordinateur. Cet accès à vos 
messages est évidemment protégé par un mot de 
passe.Beaucoup de messages sont arrivés, vous 
craignez la saturation du disque ? Vous avez 
également la possibilité d'effacer le fichier pour 
libérer de la place. Luxe supplémentaire, vous 
changerez si nécessaire le mot de passe (cas où 
vous l'auriez communiqué à un ami — client ? — 
pour démonstration). 


Hard : comment faire ? 


L'ordinateur. Ce programme fonctionne avec : 


- Apple ][[+, Rom minuscules, carte langage, 
carte Super Série Apple ou ; 

- Apple //e, carte Super Série Apple ou ; 

- Apple /cou; 

- Apple Ilgs (sur port série intégré ou carte 
Super Série Apple). 

Le Minitel. Il sera nécessairement bi-standard 
(1B) c'est-à-dire avec modem retournable 
(aujourd'hui, c'est presque toujours le cas). 

Le détecteur de sonnerie. Peu importe son 
type : celui dont le schéma a paru dans le 
numéro 33 de Pom's convient, celui vendu par 
votre revue préférée également. Notez toutefois 
que la fiabilité de l'ensemble est directement 
fonction de la qualité des composants utilisés, 

Le câble Minitel/Apple. Il est maintemant bien 
connu. Vous l'utilisez déjà avec MinBas 
(Pom's 27), InterPom's (28), T.Pom's (30), 
Cilv_Pom's, HGR/Minitel (33). S'il vous 
manque, Pom's en dispose. 

Le port ou la carte série de l'Apple. Sur les 
Apple ]J{+ ou //e, la carte série sera configurée 
ainsi : 


sw 
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terminal 
s'w2 


“UBNOUUE 


Sur votre IIGS, à l'aide du tableau de bord, mettre 
toutes les options port modem par défaut sauf : 


Data/Stop Bits 7/1 
Parity Even 

DCD Handshake : No 
DSR/DTR Handshake : No 


Soft : comment faire ? 


Ce paragraphe ne vous concerne que si vous ne 
disposez pas de la disquette d'accompagnement de 
ce numéro. Il vous faut saisir et sauvegarder sur 
une disquette ProDOS le programme Basic 
Repomdeur. En ce qui concerne, Pom.link.2.1, 
même pensum ; il est toutefois plus fiable de 
reprendre le source et de l'assembler car les 
erreurs sont en principe décelées plus facilement. 


Sur votre disquette, n'oubliez pas de mettre 
ProDOS 8 (version 1.1.1 ou plus) et 
Basic.System. 


Avant de lancer l'ensemble, modifier la ligne 
Basic 26 pour indiquer : 


- votre mot de passe à la place de ABCDE (de 
4 à 7 caractères ; 

- votre numéro de téléphone à la place de (1) 
12 34 5678 (maximum 15 caractères) ; 

- votre nom à la place de M. Xxxxxxxxxx 
(maximum 15 caractères). 


L'ensemble est alors prêt à enregistrer fidèlement 
les messages ; faire simplement : 


RUN REPOMDEUR 


La première tâche du programme sera de créer le 
fichier (le message Erreur 18 s'affiche si la 
disquette est protégée en écriture.….). 


Changer de nom 


Petite simplification de programmation, le 
changement du nom et du numéro de téléphone 
n'est pas prévu. La méthode est la suivante : 
effacer le fichier de message par 

DELETE FIC.REPOMDEUR 

puis modifier la ligne 26 et 

RUN REPOMDEUR 





Au menu 


Quatre options sont proposées à l'écran de 

l'Apple / : 

1 Activer le serveur : votre ordinateur se met 
à l'écoute de la ligne et attend patiemment le 
premier appel. On sort de ce mode par ESC ; 

2 Lire les messages : vous avez pu aussi les 
lire à distance ; 

3 Effacer les messages : c'est aussi une 
opération que vous pourriez faire à distance ; 

4 Quitter le programme. 


Le serveur en service 


Rien de passionnant n'apparaît sur l'écran de 
l'Apple lors du fonctionnement du serveur ; trois 
messages seulement : 


Attente d'un appel 
Appel reçu, attente de connexion 
Connexion Ok, serveur actif. 


Côté correspondant utilisateur, c'est plus complet ; 
après deux pages de présentation du répondeur le 
menu principal apparaît offrant : 


1 Laisser un message 
2 Fonctions de service 
3 Quitter ce répondeur 


L'option 1 invite sur une page écran à laisser nom, 
prénom et numéro de téléphone puis 7 lignes de 
message. Un écran de validation s'affiche ensuite 
pour inviter le correspondant (et toujours client) à 
confimner, à corriger ou à annuler le message. 


L'option 2, qui donne accès aux fonctions de 
service, demande en premier lieu le mot de passe. 
Seules trois tentatives sont permises avant 
déconnexion forcée (même si l'on revient au 
sommaire après chaque essai infructueux). 


Le menu des fonctions de service est le suivant : 


1 Lire les messages 

2 Effacer le fichier 

3 Changer le mot de passe 
L'option 1 affiche le dernier message reçu; on 
accède aux différents enregistrements avec SUITE 
et RETOUR. 


L'option 2 évite les effacements involontaires de 
fichier en attendant les trois lettres OUI avant de 
supprimer les messages. 


Le changement de mot de passe par l'option 3 est 
fiable : les caractères frappés au clavier sont 
remplacés à l'écran par des ‘*” par souci de 
discrétion et le nouveau mot est demandé deux 
fois pour être à l'abri des fautes de frappe. 
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Programme 
‘REPOMDEUR' 


3 IF PEEK (104) * 256 + PEEK (103) < > 7681 
THEN POKE 103,1: POKE 104,30: POKE 7680, 
0: PRINT CHR$ (4)"-repomdeur" 

6 PRINT CHRS {21}: HOME 

10 PRINT CHRS (4)"-pom.link.2.1 

11 & INIT,2:N$ = ""SPR$ = "STL$ = 5 FOR I 
= 0 TO 6:M$(I)j = “": NEXT :PO = 0 

12 D$ = CHRS$S (4):FI$ = "fic.repomdeur" 

22 ONERR GOTO 25 

23 PRINT D$"open"FI$", 1255": PRINT D$"read"FI$ 
",r0": INPUT LG,MOS,TES,NOS 

24 GOTO 30 

25 ONERR GOTO 20000 

26 MO$ = "ABCDE":TES$S = "(1) 12 34 56 78":NO$ = 
"M, Xxxxxxxx" 

27 PRINT D$"write"FIS$S",r0": PRINT 0: PRINT MOS 
: PRINT TES: PRINT NO$ 

30 PRINT D$"close 

38 GOTO 9000 

40 HOME :PO = O:ES = 0 

45 US$ = "Attente d'un appel (Esc = menu)": GOSU 
B 8000 


50 & APPEL, A$ 
S1 IF PEEK (49152) = 155 THEN POKE 49168,0: 


GOTO 9000 

52 ON NOT A#% GOTO 50 

55 U$ = "Appel reçu, attente de connexion": GOS 
uB 8000 


60 6 CNAR,A$# 
70 ON NOT A$ GOTO 10010 





75 US$ = "Connexion ok, serveur actif": COSUB 80 
00 
QYNREMV === lère page--------------- 
98 & MTH,1 
99 & DEPLACE, 1,13 
100 &@ AFFICHE," /'""G JG Jrmnemene y 
ç /“ig" 
101 & AFFICHE, “/ ç / ç é è é 
èvé /uç 7/0 
102 6 AFFICHE,'"é /''çèé/çèé/'ç/'cèé 
èéç _" 
103 & AFFICHE, "éé èèééèééèéèéèé 
UC ç" 
104 6 AFFICHE, "é é è è é é è à é à é à é è 
CCE 
105 & AFFICHE, '"éç /èéç/èéèéèéé 
che 
106 & AFFICHE, "é /2C /éèééé è 
Vic s/eer 
JOZNCUREEICHE, MEUÇE /ONIÇ NN CAC RICE 
Ç 74 
108 6 AFFICHE, "é è": & AEFFICHE,"é è": & AFF 
ICHE, "é è": & AFFICHE, "Ç_/ ". 


109 & PARAMT,1,2,0,0,0,0: & AFFICHE,"- La re 
vue des Apple -"; 

110 & HAUT,12: & BAS,4: 6 DEPLACE, 9,17: & P 
ARAMT, 0,2,0,0,0,0 

112 & AFFICHE, GT + CHRS (18) + CARS (86);: 
& DEPLACE, 12,18: & PARAMT,0,3,0,0,0,0: 


119 
120 
199 
200 


210 


220 


230 
240 


250 


260 


270 


î 





& AFFICHE, "_" + CHR$ (18) + CHRS$ (92) 
6 MT, 0 
FOR I = 1 TO 1000: NEXT 
REMPE==EEE SEE 2ème page-----——-----—- 
& VIDECRAN 


& CADRE, 1,1,40,7,2,0,5,0: & CADRE,1,8,40 

20,210, 570 

& DEPLACE, 4,3: & AFFICHE, "Vous “etes bi 

en au “ + TES; 

& DEPLACE, 4,5: & MODE, 2: 6 AFFICHE,NOS; 

& DEPLACE, 4,10: & AFFICHE, "Votre interi 

ocuteur est un"; 

& DEPLACE, 4,12: & AFFICHE, "ordinateur À 

pple pr‘'et à enregistrer"; 

& DEPLACE, 4,14: & AFFICHE, "vos messages 
et confidences..."; 

& DEPLACE, 13,18: & AFFICHE, "Accès au me 











Pom's n° 34 





35 








280 


290 
300 





340 
499 
500 
510 
520 
550 
560 
570 
580 
590 
600 


610 


620 
630 


650 
660 


700 
710 


720 


730 





740 


750 


760 
770 


780 
790 







800 








INVERSE : 


& AFFICHE, " Sui 
te É 

& DEPLACE, 18,19: 
“>: &  INVERSE : 


LE 
° 


& ACCEPTE, A$ 

ON NOT A$ GOTO 10000: ON A$ GOTO 500,340, 
200,340,340,500,500,10010,340 

GOSUB 4000: GOTO 290 


€ AFFICHE, “Renoncer : 
£& AFFICHE," Connexion 


PRINT D$"close": & VIDECRAN: & VIDRECT, 
1, 1, 40,6,4 

& DEPLACE, 9,4: & PARAMT,1,7,4,0,0,0: & 
AFFICHE," Répondeur télématique"; 
GOSUB 6000 

& PARAMT, 0,7,0,0,0,0 

€ DEPLACE, 8,11: & AFFICHE,"Laisser un m 
essage"; 

£ DEPLACE, 8,14: 
service“; 

£ DEPLACE, 8,17: 
épondeur"“; 

& DEPLACE, 15,22: & AFFICHE, "Votre choix 
3 + "“;: &  INVERSE : & AEFICHE," Env 
C1; 

CHS$ = ‘""": & ACCEPT,29,22,0,"",1,CHS$,E# 

ON NOT E$& GOTO 10000: ON E# GOTO 650,200, 
500, 620, 600, 600, 650,10010 

GOSUB 5000: GOTO 600 
MENCHSSCOMIUSORECHS) > 
: GO10 600 

IF CH$ < "l" OR CH$ > 
: GOTO 600 

ON VAL (CH$) GOTO 700,3000,9900 

RENE Enreg du message----------- 
£& VIDECRAN: & DEPLACE, 3,2: & INVERSE 
: & PARAMT, 0,7,4,0,0,0: & AFFICHE," En 
registrement de votre message “;: & CADR 
E,e,1,30,3,0,0,2,0 

& DEPLACE, 1,5: & AFFICHE, "Votre nom : 
A + & LIGNE: & AEFICH 
E," “;: & INVERSE : & AFFICHE," Suite 


& AFFICHE, "Fonctions de 


& AFFICHE, "êuitter cer 


“3" THEN GOSUB 7000 


"3" THEN GOSUB 7000 


nm... 
PA 


& DEPLACE, 1, 6: & AFFICHE, " Prénom 
TS A0 0 0 dE + ";: & LIGNE: & AFFICH 
INVERSE : & AFFICHE," Suite 


& DEPLACE, 1,7: & AFFICHE, “Téléphone : 
les sas ses: + “;: & LIGNE: 6 AFFICH 
INVERSE : & AFFICHE," Suite 
€ CHARIOT: & é AFF 
ICHE, 
FOR I = 11 TO 17 
€ DEPLACE, 1,1: & AFFICHE, ",,., 4 rss 
+ "“/: & LIGNE: & AFFICH 
: & AFFICHE," Suite 


NORMAL : 6 MODE, 2: 
Message ne 


NEXT 
& DEPLACE,1,20: & AFFICHE,"Pour valider 
votre message :";: & LIGNE: & AFFICHE, 
"W:: &  INVERSE : & BFFICHE," Envoi 
& DEPLACE,13,21: & AFFICHE, "Pour 1 
‘annuler :";: & LIGRE: & AFFICHE," ";: 
&  INVERSE : 4 APFICHE," Sommaire ‘; 
& DEPLACE, 13, 5: & AFFICHE,NS; 
& DEPLACE, 13,6: & AFFICHE,PRS; 


CE 
PA 








802 & DEPLACE, 13, 7: & AFFICHE,TIS; 

803 FOR TI = 11 TO 17: & DEPLACE,l,1I: & AFFIC 
HE,M$(I - 11);: NEXT 

805 (ON ?O GOTO 810,850,880,910 

810 PO = 1: & ACCEPT,13,5,0,'",16, N$,E#% 

820 ON NOT E% GOTO 10000: ON E& GOTO 840,830, 
700, 835,830, 500,840, 10010 

830 COSUB 4000: GOTO 810 

835 GOSUB 5000: GOTO 810 

840 IF N$ = “" THEN & ALERTE, "Nem indispensa 
Die, 12GOTOV610 

845 IF E% = ] GOTO 990 


850 PO = 2: £ ACCEPT, 13,6,0,'°°,16,PR$,E% 


860 


870 
875 


880 PO = 3: 


890 


900 
905 


ON NOT E& GOTO 10000: ON E$ GOTO 990,810, 
700,875,870,500, 880, 10010 

GOSTB 4000: GOTO 850 

GOSUB 5000: GOTO 850 

& ACCEPT, 13,7,0,"",16,TL$S,E% 

ON NOT E$ GOTO 10000: ON E$ GOTO 990,850, 
700,905,900,500, 910, 10010 

GOSUB 4000: GOTO 880 

GOSUB 5000: GOTO 880 


910 NN = 0 
915 V = NN + 11 


920 PO =%3;: 


930 


935 
940 


950 NN = NN + 1: 
980 NN = NN - 1: 


989 


990 


1000 


1002 


1004 


1006 


1010 


1020 


1030 


1040 


1050 


1060 


1065 


1070 


1099 


1100 


1103 


1105 
1110 





£& DEPLACE, 1,V: & ACCEPT,1,V,0,"", 
28,MS(NN),E® 

ON NOT E$& GOTO 10000: ON E& GOTO 990,980, 
700, 935, 940, 500, 950, 10010 

GOSUB 5000: GOTO 915 

GOSUB 4000: GOTO 915 

ON NN = 7? GOTO 990: GOTO 915 
ON NN < > — 1 GOTO 915:NN = 
0: GOTO 880 

REM = écran de validation--------- 
& VIDECRAN: € DEPLACE, 1,3: & AEFICHE, " 
Voici votre message tel qu'il sera": & AF 
FICHE, "enregistré :" 


& DEPLACE, 4,7: £ AFFICKE," Nom : " + 
N£; 
& DEPLACE, 4,8: & AFFICHE, “Prénom : " + 
PR; 


& DEPLACE, 4,9; & AFFICHE, "“Téléph : " + 
TL$; 


FOR I = 0 TO 6: & DEPLACE, 6,11 + I: & À 
FFICHE,MS${I);: NEXT 

& DEPLACE, 1,21 

& AFFICHE, “Pour le valider...,.,.... He 
€ LIGNE: & AFFICHE," ";: & INVERSE : 

& AFFICHE, " Envoi “": & NORMAL 

& AFFICHE, "Pour le modifier......... Hs 
& LIGNE: & AFFICHE," ";: & INVERSE 

& AFFICHE," Correction “: & NORMAL 

& AFFICHE, "Pour l'annuler........... se 
6€ LIGNE: & AFFICHE," ";: & INVERSE : 

& AFFICHE, “ Annulation ": & NORMAL 


& ACCÉPTF, A$ 

ON NOT A% GOTO 10000: ON A$ GOTO 1100, 70 
0,990,1070,500,500,1065,10010,700 

& ALERTE, "Touche interdite",0: GOTO 1050 
GOSUB 5000: GOTO 1050 

& VIDECRAN: & DEPLACE, 6,12: & AFFICHE 
, "Enregistrement en cours"; 

PRINT D$"open"FI$",1255" 

PRINT D$"read"FI$",r0 

INPUT LG 
LG = LG + 1 





1130 PRINT D$"write"FIiS$",r0": PRINT LG: PRINT 


1140 
1150 


1160 
1165 


1169 
1170 


3000 
3010 


3012 


3013 


3014 


3015 


3016 
3017 
3018 
3020 
3022 


3023 


3024 


3028 


3030 


3040 


3048 
3050 
3060 


3065 
3066 
3070 


3075 
3100 
3110 
3120 
3130 


3135 
3140 


3142 


MOS: PRINT TES: PRINT NOS$S 

PRINT D$S"write"FIS",r"LG 

PRINT NS: PRINT PRS$S: PRINT TLS: FOR I = 0 
TO 6: PRINT MS$(I}: NEXT 

PRINT D$"close 

FOR I = 0 TO 6:MS'(T) = !!": NEXT. 
IREM dernier écran---------- = 
& VIDECRAN: & DEPLACE,6,12: & AFFICHE 

, "Votre message est enregistré.,.": # DEP 

LACE, 11,14: & AFFICHE, "...faites ";: € 
INVERSE : & AFFICHE," Sommaire “;: & À 

CCEPTF,A4$%: ON A$ = O0 OR ÀA$& = 8 GOTO 1001 

0:PO = 4: GOTO 500 

REM ----------fonctions de service------- 
& VIDECRAN: & VIDRECT,1,1,40,6,4: & DE 

PLACE,10,4: & PARAMT,1,7,4,0,0,0: & AFF 

ICHE, " Fonctions de service";: & PARAMT, 
0,7,10,:0,0,0 

& DEPLACE, 32,12: & AFFICHE, "+ ";: & I 

NVERSE : & AFFICHE," Envoi "; 

& DEPLACE, 15,15: & AFFICHE, "Pour renon 


cer : “;: & INVERSE : & AFFICHE," Somm 
aire "; 

MP$ = “"": & SECRET, 9,12, 0, “Mot de passe : 
",7,MP$,E# 


ON NOT E#% GOTO 10000: ON E$ GOTO 3018,50 
0,3000,3016,3017,500,3018,10010 

GOSUB 5000: GOTO 3014 

GOSUB 4000: GOTO 3014 

IF MPS = MOS$S GOTO 3028 
ES = ES + 1 

IF ES = 1 THEN & ALERTE, "Mot de passe e 
rroné",1: GOTO 3014 

IF ES = 2 THEN & ALERME, "Erreur, encore 

un essai",1: GOTO 3014 

& VIDECRAN: & DEPLACE, 10,12: & AEFICH 
E, "Désolé, déconnexion forcée...";: GOTO 
10010 
ES = 0: & VIDLIGNE, 12,0: & VIDLIGNE, 15, 

0: GOSUB 6000 

& DEPLACE, 8,11: & AFFICHE, "Lire les me 
ssages";: & DEPLACE, 8,14: & ASTICHE, "Ef 
facer le fichier";: & DEPLACE,8,17: & AE 
FICHE, "Changer le mot de passe"; 

& DEPLACE, 15,22: & AFFICHE, "Votre chol 


x: + “;:3 &  INVERSE : & AFFICHE," En 
voi "; 

CHS$S = vw 

CHS$S = "": £& ACCEPT, 29,22,0,'"",1,CH$,ES 


ON NOT E#% GOTO 10000: ON E$ GOTO 3070,30 
00,3065,3066, 3065,500,3070,10010 

GOSUB 4000: GOTO 3050 

GOSUB 5000: GOTO 3050 

IF CHS < “l" OR CHS > "3" THEN GOSUB 700 
0: GOTO 3048 

ON VAL (CHS$) GOTO 3100, 3300,3500 
REM=== lecture fic------- 
PRINT D$"open"FIS",1255 

PRINT D$"read"FIS",r0": INPUT LG 

IF LG = 0 THEN PRINT DS$"close": & ALERT 
E, "Aucun message reçu“,l: GOTO 3050 
NO = LG 

& VIDECRAN: & PARAMT, 0,2,0,0,0,0: & AF 
FICHE," " + CHR$S (18) + CHR$S (64 + 39); 
& DEPLACE, 2,3: & MODE,1l: & AFFICHE, "Co 


nsultation des messages enregistrés": & M 
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3144 


3146 


3148 


3150 


3152 


3154 


3170 
3180 
3190 
3192 
3194 
3196 
3198 
3200 
3220 
3230 
3235 
3240 
3250 
3252 


3260 
3262 


3299 
3300 


3310 


3320 


3325 


3327 


3330 


ODE, 0 
& PARAMT, 0,2,0,0,0,0: & MTH,1: & AFFIC 
HE, "=" + CHRS (18) + CHRS (64 + 39);: € 
MTH,0: & DEPLACE, 9,5: & PARAMT,0,6,0, 
0,0,0: & AFFICHE, "Précédent :"; 
£& LIGNE: & AFFICHE," “;: & INVERSE : 
& AFFICHE," Retour “: & DEPLACE,11,6 
& PARAMT,0,6,0,0,0,0: & AFFICHE, “Suiv 
ant :";: & LIGNE: & AFFICHE," ";: & IN 
VERSE : & AFFICHE," Suite _ 
& DEPLACE,15,7: & PARAMT, 0,6,0,0,0,0: & 
AETICHE, "Fin :"};: & LIGNE: & AFFICHE, 
" “;: &  INVERSE : & AFFICHE,'' Sommaire 
LL 
6 PARAMT, 0,2,0,0,0,0: & AFFICHE," " + 
CHRS (18) + CHRS (64 + 39): & AFFICHE," 
"® +  CÆERS (18) + CHR$S (64 + 39); 
& DEPLACE, 1,12: & PARAMT,0,4,0,0,0,0: & 


AFFICHE,"°" + CHRS (18) + CHRS (64 + 
39);: & DEPLACE, 1,16: & PARAMT, 0,4,0,0, 
0,0; & AFFICHE, "°" + CHR$S (18) + CHRS 
(64 + 39) 


& DEPLACE, 1,24: & PARAMT,0,2,0,0,0,0: & 
AFFICHE, “‘" + CHRS (18) + CHR$S (64 + 
99) 

PRINT D$"read"FIS$S",r"NO 

FOR I = 1 TO 3: INPUT IS$S{(I): NEXT 

FOR I = 0 TO 6: INPUT MS$S(I): NEXT 

& DEPLACE, 2,10: & AFFICHE," Message n° 
+ STRS (NO); 

& DEPIACE, 2,13: & AFFICHE, "> " + IS( 

1) + ” “ + CHR$S (24) 

& DEPLACE,2,14: & ASFICHE, "> " + IS( 

2) + “ "+  CHRS (24) 

& DEPLACE,2,15: & AFFICHE, "> " + IS( 


3} + “ " +  CHRS (24) 

FOR I = 1 TO 7: & DEPLACE, 2,16 + I: £& À 

FEICHE, "°° " + MSS(I - 1) + " " + CHRS 
(24); : NEXT 


& ACCEPIF,A*%: ON NOT A# GOTO 10000 

ON A$ GOTO 3240, 3250, 3140, 3235,3240,500,3 
260,10010, 3240 

GOSUB 5000: GOTO 3220 

GOSUB 4000: GOTO 3220 
NO = NO - 1 


ON NO > O GOTO 3170:NO = J: & ALERIE, "C' 


est le premier message",1l: GOTO 3220 
NO = NO + 1 
ON NO < = LG GOTO 3170:NO = LG: & ALERT 


E, "C'est le dernier",1: GOTO 3220 


£& VIDECRAN: & VIDRECT, 1, 1, 40,6,4: & DE 
PLACE, 10,4: & PARAMT,1,7,4,0,0,0: & AFF 
ICHE, " Effacement fichier ";: & PARAMT, 0 
; 7,070; 0/0 

€ DEPLACE, 5,10: & AFFICHE, "Cette comma 
nde supprime l'ensemble": £& DEPLACE, 5, 11 
: & AFFICHE, "des messages stockés." 

& DEPLACE, 5,13: £ AFFICHE, "On ne peut 
annuler un effacement..." 
R$ = "": & DEPLACE,S,22: & AFFICHE, “Pou 
r effacer : “";: 4 INVERSE : & AFFICHE 
,"" OUI + Envoi "; 

& DEPLACE, 5, 23: & AFFICHE, "Pour renonc 


er : “;: & INVERSE : & AFFICHE," Somm 
aire ws 
R$ = "": & ACCEPT, 10, 16,0,"Ox pour tout e 








37 
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3499 
3500 


3510 


3520 





3530 


3540 
3550 
3560 
3570 
3580 





3590 
3595 
3600 


3610 
3620 
3630 


3640 
3645 
3680 


3690 
3700 
3710 


3720 
3730 


3999 
4000 


5000 
6000 


ffacert? ",3,RSLES 


ON NOT E% GOTO 10000: ON E$% GOTO 3380,33 
50,3300,3360,500,500,3350,10010 

GOSUB 4000: GOTO 3330 

GOSUB 5000: GOTO 3330 

IF R$ < > "OUI" THEN R$ = "": & ALERTE, 
“Réponse incorrecte",0: GOTO 3330 

PRINT D$"open"FI$",1255" 

PRINT D$"write"FI$",r0": PRINT 0: PRINT M 
O$: PRINT TE$: PRINT NO$ 

PRINT D$"close" 

& VIDECRAN: & DEPLACE, 6,12: & AFTICHE 

, “Le fichier à été réinitialisé...": & DE 
PLACE,11,14: & AFFICHE,"...faites ";: € 

INVERSE : & AFFICHE, " Sonmaire ";: € 

ACCEPTE, A3: ON A& = O0 OR A% = 8 GOTO 100 
10: GOTO 500 

REMÉESEEEEESe changer le mot de passe---- 

& VIDECRAN: & VIDRECT, 1,1, 40,6,4: & DE 
PLACE, 14,4: & PARAMT, 1, 7,4,0,0,0: & AFF 
ICHE, “Mot de passe";: & PARAMT, 0,7,0,0,0 
0 

£& DEPLACE, 1,23: & AFFICHE, "Pour renonc 
er, faites : ";: & INVERSE : & AFFICHE 
," Sommaire “; 

& DEPLACE, 1,11: & AFFICHE, "Taper le no 
uveau mot de passe + “;: & INVERSE : & 
AFFICHE," Envoi ‘“; 

& DEPLACE, 1,16: & AFFICHE, "Taper le à 
nouvéau pour contr"ole"; 

& CADRE,25,12,35,14,2,0,5,0 

& CADRE, 25,17,35,19,2,0,5,0 
RAS = CN NEMSECRET, 2/7, 13,02") PRISES 

ON NOT E#% GOTO 10000 

ON E# GOTO 3600,3590,3500, 3595, 3590,500,3 
600,10010 

GOSUB 4000: GOTO 3560 

GOSUB 5000: GOTO 3560 

IF LEN (R1$) < 4 THEN £& ALERTE, "Minimu 
m 4 caractères",1: GOTO 3560 
R2$ = "": & SECRET,27,18,0,"",7,R2$,E% 

ON NOT E#% GOTO 10000 

ON E# GOTO 3680,3640,3500,3645,3640,500,3 
680,10010 

GOSUB 4000: GOTO 3610 

GOSUB 5000: GOTO 3610 

IF R1$ < > R2$ THEN & ALERTE, "Les deux 

mots de passe diffèrent",1: GOTO 3560 
MO$ = RI$ 


PRINT D$"open"FI$",1255" 

PRINT D$"“write"FI$",r0": PRINT LG: PRINT 
MO$: PRINT TES: PRINT NO$ 

PRINT DS$"close" 

& VIDECRAN: & DEPLACE, 6, 12: & AFFICHE 

, "Le mot de passe a été changé... ": & D 
EPLACE, 11,14: & AETICHE,"...faites ";: 

& INVERSE : & AFFICHE," Sommaire ";: & 
ACCEPTF,A%: ON A$ = 0 OR A$% = 8 GOTO 10 
010: GOTO 500 

REM -------------- SOUS-PrOgY- --------————— 
& ALERTE, "Touche inactive ic1i",0: RETURN 


& ALERTE, “Guide indisponible“",0: RETURN 
& CADRE, 4,10,6,12,2,0,5,0: & AFFICHE, "1 
“;: & CADRE, 4,13,6,15,2,0,5,0: & AFFICH 
E, 12%; "€ CADRE, 14/1 676,168, 2,075; 0; < AFF 


9140 


9150 
9160 


9170 


9172 
9175 
91680 
9190 


9200 


9205 
9210 
9250 
9400 


9410 


9420 
9430 


9440 
9450 


9500 
9899 
9900 


9910 
10000 


10010 
19999 
20000 





ICHE, "3!";: RETURN 
& ALERTE, “Choix impossible",l: RETURN 


VTAB 10: PRINT U$;: CALL - 8668: PRINT : 
RETURN 

REM ==----------- menu général------------ 
VTAB 23: FOR I = 1 TO 23: PRINT : NEXT 
PRINT : PRINT : PRINT “Voulez-vous :": PR 
INT 

PRINT " l activer le serveur 

PRINT " 2 lire les messages 

PRINT " 3 effacer les messages 

PRINT " 4 quitter ce programme“: PRINT 
: PRINT 


Votre Choix"; G 
[ue Un GOT 


VTAB 23; PRINT “ 
ET RS: PRINT ; ION RS < I" COR RS > 
© 9060 

ON VAL (R$) GOTO 40,9100, 9400, 9080 
HOME : END 

PRINT : PRINT 

PRINT D$"open"FIi$",1255 


PRINT D$"read"FI$",r0": INPUT LG: PRINT D 


S 

IF LG = 0 THEN PRINT D$"close": PRINT "A 
ucun message reçu": PRINT : PRINT : GOTO 9 
020 

PRINT "Vous avez "LG" message", : IF LG > 


1 THEN PRINT PS"; 

PRINT : PRINT 

INPUT "N° du message à lire (0 pour finir 
}: ";:NIS:N1 = VAL (NI1S) 

IF N1 < O0 OR Ni > LG THEN PRINT "De 1 à 
MEG"*.. M GOTONHS0 

ON NOT N1 GOTO 9250 


PRINT : PRINT "Message n° "N1" :“: PRINT 
PRINT D$"read"FI$",r"N1 

FOR I = 1 TO 3: INPUT A$: PRINT "--> "A$: 
NEXT 

FOR I = 1 TO 7: INPUT AS: PRINT "* “A$: N 

EXT 

PRINT D$ 

GOTO 9150 

PRINT D$"close": GOTO 9020 

PRINT : PRINT "Ok pour effacer TOUS les m 


essages ?" 

INPUT “Répondre OUI pour effacer ";N1$: O 
N N1$ < > "OUI" GOTO 9500 

PRINT D$"open"FI$",1255 

PRINT D$"write"FIiS$S",r0": PRINT 0: PRINT M 
O$: PRINT TES: PRINT NO$ 

PRINT D$"close" 


PRINT : PRINT "Messages effacés": GOTO 90 
20 

PRINT : PRINT "Ordre annulé": GOTO 9020 
RENE EinféldéconnexioOn-------- 


& VIDECRAN: & DEPLACE,10, 12: 
E, "Au revoir. -"} 

PRINT D$"close": & DECNX: GOTO 40 

& VIDECRAN: & DEPFLACE, 3,12: & FLASH 

& AFFICHE, "Minitel inactif depuis 2 m 

inutes, ";: & DEPLACE, 9,14: & AFFICHE, "D 
éconnexion forcée."; 

PRINT D$"close": & DECNX: GOTO 40 

REM 

& VIDECRAN: & AFFICHE, “Désolé, problé 
me serveur": & DECNX: PRINT D$"close“": PR 


& AFFICH 


INT "erreur “ PEEK (222): END 

















a ——_—_— 


hr kb 
URHOGVEJAUNSU NEO 
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Les sources Procode, pour Apple 
1/, présentés ici doivent permettre 
à chacun d'améliorer, d'adapter à 
ses propres besoins les nouvelles 
instructions serveur. 


Ils sont présents en format texte 
sur la disquette d'accompa- 
gnement de ce numéro et sont 
récupérables par tout autre 
assembleur. 


Source PL.0 
Assembleur ProCODE 





ist off 
dsk pou.link.2.1 
put pl.l 
put pl.2 
put p1.3 
put plil.4 
put pl.sp 
put pl.date 
Source PL.1 
Assembleur ProCODE 
*0701_1535 
Pmmmemmmmmmmmmm—m—m——v— e 
L NetPom's L- 
Fmmmmmmannn im n e mœmum dn LI 
chkcom _ SDEBE 
chkatr - $DDéC 
chrget _ $B1 
chrqot _ $B7 
cout _ $FDED 
data _ $s18 
error - $»412 
@rrout = $B£09 
facno - $AQ 
forpnt _ 5Bs 
£rmevi _ $0D7B 
fretop = $86r 
getbytc = $SE6Frs 
getspa — $E452 
kbd _ $co00 
niserr - SDD?6 
MOMSECE SESE2 
ptr _ 58 
ptrgat = $DFK3 
snèrr - $DEC9 
status _ $1A 
varnam = $81 
varpnt = 583 
org $s0l 
ida $3F6 ivecteur & déjà 
cmp £<debut installé 2? 
bne $9 
lda $3F7 
cmp E£>debut 
beq ok 
$o idy E2 :8auve ancien 
si lda $3F5,y :vectaur 


 LinK 2.1, Les souri 


vectaur,y 


bpl S1l 

£$4C 
$3ES 
£<debut 
$3r6 
£>debut 
$3F7 

ok ida £0 
deuxc 
$FBB3 
enp £6 

S$Sok 
$Feco 
S$Sok 
deuxec 


sinstalle nouveau 
vecteur & 


sest-on sur un 
ile ? 


ldy £0 

erd 
nocnd 
so = : 

cad 
cmd 
£12 
sii 
snerr 
£$AQ 
crd,y 
chrget 
fincniä 
£',' 
bne So 


init longueur cmd 


icherche 
{la commande 


stransforne en 
sninuscule et 
sstocke les caract 
jusqu'à 1 virgule 


sil 


Quel serait l'intérêt 
d'un serveur si 
l'ordinateur ne sait 
pas que le téléphone 
sonne ? Rendez-vous 
page 75 ou, pour les 
bricoleurs, dans le 
numéro 32. 











finemd ldy £$FF iCompare à chacune 
sty ptremd :des commandes 
inc ptrcad 
ldy ptremd 
lda commande, y 
si crp cmd scompare d'abord 
bee #2 sla iongueur 
ldx £€0 puis le nom 
$190 inx :lui-meme 
inc ptremd 
ldy ptremd 
1da commande, y 
cmp Cmd,*x 








Christian Piard 


bne #2 

cd 
trouve 
$100 
ptremd 
ptrcmd 
commande,y 
pas _eu 
bui 52 
nocmd 
ie» 51 


$è inc icherche ordre 
isuivant dana 


stable 


:n° de la commande 


:on a trouvé 
tinitialise 

le saut 

tvers la 

sroutine concernée 


£<adrcon 
sautind+]l 
£radrcom 
sautinds+2 
nocnd 
sautind 
si £nc sautind+l 
»ne $2 
sautind+2 
$2 inc sautind+i 
bne $3 
gautind+2 


trouve 





$3 dey 
bne $1 
(adrcom) 


sautind saute 


snerr ssyntax error 


pas_eu jnp 


Source PL.2 
Assembleur ProCODE 


* accept 
Conenmmnmnrenemeness 
accept lda f£0 ice n'est pas 
sta dsecret : secret 
acceptl lda £$SFF 
sta drap 
jsr getbytc sposition horiz 
stx dhor 
jsr getbytc position verti 
stx lver 
cpx £25 
bcc Sa 
Jmp horsliim 
Sa sr getbytc imode dble haut. 
cpx £2 :0 ou 1 seulement 
bce $a0 
jmp horslim 
$ao stx dblh 
ldy ver spositionne 
1dx JLlhor :le curseur 
jsr position 
Âsz curseuri :invisible 
3sr chxcom 
ida E£0 
sta $32 
Jsr frmevl évalue Chaine 
jar chkstr sc'est 1 chaine ? 
lda facno :récubère pointeur 
sta forpnt ssur chaine 
lda facno+l stemporaire 
sta forpnts+l 
ldy £0 
ida (forpat),y 
tax 
cle 
adc lLhor 
sta lhor 
ldy £2 
so lda (forpnt),y :récupère adresse 
dey da la chaîne 





Pom's n° 34 


52 














$1 


Stinaff 


Spas0 
S1gok 


S1goki 


debsais 


deb1 
deb2 


$0 


$1 


si? 


5110 
$2 


s20 


s21 


$22 


$23 


trop 


$s1 


$2 


$190 


tpsdepas 








ptr.y 
£0 


so 
l'affiche 
$tinaff 
(ptr),y 
envoicar 


s1 
getbytc 
lgatt 
eo iP3s5 0 
$Pas0 
£41 
Slgox 
horslim 
Lhor 


sattend 1g% 


scontrole si les 
spts tiennent 
igatt sdans l'écran 
£4al 
Slgokl 
horsiim 
chaidef tchaine par défaut 
£0 sinit compteurs 

al 

depasst 

al jal=l:efface 1q 0 


initcpt sinit délai 


. 
curseurv 
tempo 

s1 
tempo+l 
$s1 
tempo+2 
$1 
tpsdepas 
getcar 
1g 

so 

3200 
£87F 
carrecu 
initcpt compteurs à 0 
al :81 nécessaire, 


rinc les conpt. 


sattend un caract. 


$sii tefface ligne 0 
effal 

carrecu 

£13 retour chariot 2? 
$110 oui, = 4 envof 
£10 stouche fonction ? 
$2 

tchfonc toui 

£$20 #caràc Controle ? 
deb] 

nbcar scontrole longueur 
igatt 

$20 

trop 

nbcar 

nbcar 

carrecu 

CEA itransforme , & 
s21 ten des . 

gui 

Enr 

$22 

| AOL 

$200,y stocke car reçu 
dsecret i (si secret, 

523 ;* en écho) 

frs 

envoi sen $201..2FF 
deb 

£1 +carsc hors zone 
al 

curseuri 

£0 saffiche nessage 
$1g0,y sfin de zone 

s2 

envoi 

s1 

curseurv 

debl 

7,$1Fr,$40,541,520 
$12,$64,$1r,$40,541 

‘Fin de zone’ 

$0A,0 

depasst ;1 minute 

so ‘inactif 

nonr ep 32 fois : fini 

ei slère minuta 

al smeasage d'alerte 
depaast :dcnx imminente 
curseuri 


s1 


$2 


deciz 


tchfonc 


sog 


si 


$2 


$20 


$21 


Tien 


si 


$2 


$1g0 


getcar 
initcpt 


iaitcptE 


lda 
sta 
los 
sta 
sta 
bit 
bp1l 
lda 
bne 
lda 
sta 
rts 


dsz 
Ldy 
ida 


£0 
decin,y 
62 
anvoi 


$s1 
CuIrseUurv 
initcptl 
deb2 


7,51F,$€0,$41,$20 
$12,564,51P,$40,$41 

‘tp! 

519,542 

‘aconnexion imminente... 
$0A. 0 


initept 
carrecu 
£i3 stransfome RC 
590 sen envoi 

€l 

carrecu 

£7 est-ce correct 7? 
$1 

£5 annulation ? 

$2 
finacc 
nbcar 
rien 
lhor 


fin d'accept 
1 Car 


‘non, 
correction, 
;à effacer ? 
:recule d'un cran 


nbcar 


lver 
position 
ER 
envoi 
position 
nbear 
debl 
l1hor 
lver 
position 
curseuri 
igatt 


saffiche ua point 


:repositionne 
iGar = car -1l 


sannulation, 
scurseur en début 
sde zone 


saffich qu points 


LR 


envoi 


$20 

dhor 
lver 
position 
curseurv 


:positionn curseur 
sen début de zone 


:Curseur visible 
nbcar :s1 zone vide, on 
$21 :sort, sinon en 
finacc sreconmence 

£0 

nbcat 

depsais 


£0 ‘pas da Car à 
seffacèr 


s1 

CUrseurv 
Anitcptl 

€1 

al 

debl 
$1F,$40,$541,520 
$12,$64,51F,S40,S41 
‘Rien 

$19,$41 

fa effacer..." 
$0A, 0 


sais 


EO 
depassat 
£0 
tempo 
tempo+l 
pint 

s1 

£$EFD 

$2 

£SFS 
tempo+2 


:dépasst = 0 


tempo = 0 


cur seuri 
£6 efface ligne 0 
$eff290,Y 


$e£f190 


igeh 
1gatt 
nonmch 
nbcar 
tempo 
depasst 
al 
CcarreCcu 
dbin 


position 


$0 
Ss1 
$2 
nonrep 


finacc 
Ssuite 


$o 


sol 


$etf 


$fiäin 


chaidef 


$err 
Ssuite 


envoi 


$1 
£0 
al 


$0A,$64,512 
$20,$41,$40,$1F 


:1ong chaine 


longueur attendue 
:nonm chaire retour 


drapeau alerte 


We hé hé bé Wie PO hé ht 


curseuri spositionne 
s1 ‘le curseur 
$2 

envoile 

$2 


£640 
envoi 


$1 


£$40 
envoi 
dbih 

$0 
envoils 
£$40 
envoi 

1 

1 

£0 :Minit. répond Pas 
carrecu 


double hauteur ? 


* 
nbcar cherche espace 
getspa :pour la chaine 
£i schaire en $201 
£2 

novstr 
nbcar 

£0 
(varpnti.v 


;la déplace 


fretop 
{varpnt},y 


fretop+l 
(varpnt),y 
chrkeom 
ptrget 
varpnt 
varpht+l 
varnan 
varnam#sl 
+19 

miserr 
carrecu :3À fnct = 8 ou 8, 
£7 enlève 1 

Sel 

ei 

£a sstocke état dans 
{varpnt),ÿ :variable entière 
£0 


sattand variable 
sentière 


(varpnt),y 
curszeuri 
nbcar 
1gatt 
sfin 
gum 
envoi 


seff 
£O 
drap 


sattend var chaine 
‘pour afficher la 
:chaine Par défaut 


chkcom 
ptrget 
varnam 
noneh 
$exr 
varnamtl 
nonch+l 
Ssuite 
misert 
varpnt 
forpnt 
varpnt+1i 
forpnt+1 
£0 charge 1g de la 





Pom's n° 34 





Sok 


$o 


si 


Sfinch 
$2 


$f£inp 


* acceptf 


acceptf Jsr 


Sal 


deb3 
deb4 
so 


si 


s1i 


s110 


nontrp 


fnrecu 


$00 


soi 


Soi 


jt 
sta 
sty 
léa 
and 
bni 
np 
lda 
sta 
sta 
inc 


(£forpnt),y 
1gatt 

sox 

Sok 
strtooi 
nbcar 

sn 

£2 
tforpnt),y 


S$tinch 
(ptr),.y 
$201,y 
envoi 


$1 
nbcar 
igatt 
$finp 
PO 
envoi 


$e 
dlhor 


nbcer 
lver 


position 
debsais 





chkcom 
Pirget 
varpnt 
varpnt+1l 
varnan 


varnamt+l 
Sal 
miserr 
£0 

al 
depasst 
al 


âinitcpt 
. 


tempo 
sl 
tempotl 
si 
tempo+? 
si 
tpadep 
getcar 
1g 

s0 

6200 
£$7F 
carrecu 
Anitept 
sl 

s11 
effai 
carrecu 
£13 
fnrecu 
€10 
fnrecu 
deb4 


£o 
carrecu 


Carrecu 
£13 

$00 

1 

7 

soi 

£9 

$ol 

$ol 

£ 

£ 

tvarpnt},y 

£0 


(varpnt),y 


ichaine 

:81 elle est plus 
slonÇue que la 19 
sattendue : string 
itoc long 


sprend l'adresse 


:de la chaine 


affiche la chaine 
jet la stocke à 
spartir de $201 


complète 
s6vec des pointa 


spositionne curs 
san fin de chaine 
:Par défaut 


sinit compteurs 


sincr compteurs 


attend un car 


compteurs à 0 


:retour chariot ? 
soui, = 4 envoi 
touche fonction ? 


soui 


stransforme RC 
sen envoi 


stocke état dans 
+variab entière 


tpsdep ldàä depasst ;1 minute 
beq $0 sinactif 
3np nonrp :2 fois : fin 
$o lda El s)ère mlnute 
sta al smessage d'alerte 
sta depasst 
léy €0 
s1 1ga deciss,y 
beg $2 
js envoi 
Any 
one #1 
$2 js initcpti 
mp debs 


Source PL.3 
Assembleur ProCODE 


Donerenieeiens _—— 
" affiche 
fmmmmmmmmmmmmmmmmmmcmn 
affiche sr chkcom 
lda £0 
sta $52 
jsr frnevl :cherche chaine 
jsr chkstr :c'est chaine ? 
1lda facmo 
sta forpnt 
lda Facnotl 
sta Éorpnt+l 
1dy #£0 
1da (forpnt},y :récupére longueur 
tax 
ldy £2 
so 1da (forpnt),y :récupére adresse 





dey sde la chaine 
sta ptr,y 
cpy £0 
bne $0 
s1 dex saffiche la chaine 
bai Sfin 
Ada fptr}),y 
jsr envoicar 
ny 
jep S! 
s$fin jsr chrgot ‘quel est le 
beg $er scaract suivant 7 
cp £$53B :point virgule ? 
beg Sfinl 
cts iesyntax error 
$Sfini $mp cnrget 
Scr lda £10 
isr envoi 
lda £13 
jmp envoi 
Connennunmeneemmmemsrs 
“ 
LES 
alerte 337 chkcom 
lda £0 
sta $52 
jsr frmevl scherche chaine 
sr chkstr ;zc'est 1 chaîne ? 
lda facmo 
sta forpnt 
lda facmo+l 
sta forpnt+l 
lay £0 
léz (forpnt},y :récupére 1ongueur 
np £37 smaxinun 36 
bec $000 Caractères 
drap strtool 
$oco sta $1g 
ldy E£2 
$o 1da (forpnt),y :récupère adresse 
dey :de la cnaire 
sta PCr.y 
cpY £9 
bne S0 
sr getbytc sattend varlables 
txa 
beg $00 
jsr bip 
$00 ldy £8 :va en ligne © 
$01 ida Sligne0,y set l'effsce 
jer envoi 
dey 
bpi Soi 
ldy £0 
idx S61g 
s1 dex saffiche la chaine 
bmi Sfin 








lda (ptr).y 
jsr envoicar 
Any 
np SE 
$fin lda csoA 
mp envoi 
Sligne0 dfb 541,540,S1F,S64 
dfb $12,$20,$4:,540,$1F 
$1g ds 1 
* appel 
D ETS ee re 
appel sr chkcem svirgule ? 
ÿsr ptrget scherche variable 
sta varpnt 
sty varpnt+l 
lda varnam :81 var entière, 
and vèrnam+l slés 2 octets sont 
bi $al ‘négatifs 
imp miserr 
Sal ldy £0 ;attend un instant 
$a2 da $co61 savant de renoncer 
bmi $sonne 
dey 
bre $a2 
$aonnepa lda E£0 ;a=0 : sonne pas 
$fin ldy £i 
sta (varpnt),y 
dey 
tya 
sta ({varpnt),y 
Ets 
$sonne ldy £3 :sonne-t-11 au - 
$s1i lda £$C6 :1/2 seconde ? 
jsr SFCAS {évite les 
bit S$cO6!I stintements) 
bpi Ssonnepa 
dey 
bne Ss1l 
1da £1l 
bne Sfin 
em me ce ee ee me ee ee mm 
“ bip 
bip lda £7 
mp envoi 
inner I 
* cadre 





cadre sr getbytc 
cpx £dAl 
bcs Serrf 
stx Shi 
sr getbyte 
epx £25 
becs S$errf 
stx S$vi 
jsT getbytc 
cpx E£EA41 
becs Serrf 
stx Sn? 
397 Getbyte 
Cpx £25 
bcs Serrf 
stx Sv2 
jar getbytc 
cp>x £3 
becs Serrf 
stx S$Stype 
3er getbytc 
sts Silgnage 
sr getbyte 
cpx €3 
bcs Serrf 
txa 
ora £$40 
ste S$Scoulcar 
jsr getbytc 
txa 
Ora £$550 
sta S$Scoulfd 
<np £558 
bce $deb 
$errt mp horslim 
$h1 ds 1 
sn2 ds 1 
svl ds 1 
Sv2 ds 1 
$coulcar da 1 
$Scaulfd da 1 
$type ds 1 


sattend hi, 


sv 


‘h2: 


:V2, 


stype, 


slignage, 


scouleur caract, 


set couleur fond. 


41 

















Slignage da 1 1idy Stype 52 dfb 104,57,27 








Sdeb ida Sh2 shl > 1h27 ida cd,y 
sec sta caract Sosonnenmccsssnsemss 
sbc Shi jsr colonne * cnxr 
cmp £2 ida Sv2 Ramsmmamemesmesmemmmte 
bec $Serrf cic 
lda S$v2 :vl > v2 2? ade £$3F' cnxr ldy £5 envoie les carac 
sec emp vert $a lda $2,y :de Connexion 
sbce Svl bne $colod jsr envoi ;:retournée 
cnp £2 $£inc lda £59F smode texte dey 
bec Serrf ist envoi bpl Sa 
9sx curseuri jt envoilF jsr chkcom svirquie ? 
lda £$59 cic jsr ptrget +cherche variable 
sta lignag0 ldà Svi sta varpnt ‘entière 
1da S$Slignage adce £$41 sty varpnt+l 
beg S$to0 jsr envoi lda varnam 
inc lignag0 cic and varnamt+l 
$t00 lda S$nl lda Shi bmi Sal 
cle adc £$41 imp miserr 
adc £940 jsr envoi $ai bit pint 
ata hori jsr envoilB bpl $a2 
lda stype lda coulc da £15 
mp £2 jsr envoi ne $a3 
bne $to01 Its £sa2 lda £60 :60 essais = 1 mn 
inc hori Sa3 sta Sessal 
stoi lda S$couicar ligne ldy £0 Sok isxz recoitl sattend la réponse 
sta coulc SL1 lda chaine,y bcs 51 Carac reçu 
lda $type jsr envoi dec Sessali 
enp £2 ëny lda Sessai 
beg Stype2 cpy £15 bne S$ok :69 tentatives 
1da S$coulfd bne S$Ll begq $Sreponse on à échoué 
sta couilf rts $1 emp £$13 ‘reçu $13 ? 
Ida £$1B bne $ok :non, on boucle 
sta couic+l colonne ldy £0 $11 jsr recoitl soui, attend un 
bne S11 SLI Ida chaire,y cmp £$13 scaractère. $13? 
$type2 lda £0 :5i type 2, laisse jsr envoi beg #11 
sta coulc+l ‘la couleur fond iny cmp £$53 :=$53 2? ou 
sta coulf cpy f£ii begq $110 
s11 lda Sh2 ;calcule répétit. ne 611 cmp £$51 — $51 
sec lda caract bne S$ok :sinon on boucle 
sbc Shl imp envoi $110 ida E£l :Tap = 1 : ok 
adc £5$3D $repônsé ldy E£1 set la réponse 
sta repet chaine dfb Sir pha ‘dans var 
sto idy Stype ;caract ligne haut vert df> 540 sta (varpnt),y 
id3 1Ih,y hori dfb 540 dey 
ata caract graph0 dfb SOE,S1B tya 
lda ang,y sangle haut gauche lignaga dfb 559,515 sta {varpnt),y 
sta sngleg coule dfb $40,$1B pla 
lda ahé,y sangle haut droit coulf  dfb $50 beg Sechoue 
sta angled angleg dfb 500 Jar wait 
1lda gzraphl,y type à & 1=graph caract dfb S$S00,$12 ldy £0 
sta graph0 type 2 = texte repet dfb SAD Sbcl lda S$copyr,y 
lda Svi sposition vert. angled dfb $00 beq Sfine 
cle in dfb $70,$23,$5F eor £$AS 
adc £$49 lb dfb $23,$70,$7E jer envoi 
sta vert ca dfb S6A,$35,$7D iny 
jsxr ligue strace ]1i9 du haut cd dfb $35,$6n,$578 bne S$bcl 
ldy Stype :Cèract ligne bas ahg d£b $60,$37,S00 $fine jsr wait tattend 1 instant 
1ida 1b,y shd dfb 5$30,$6B,$00 Jjsr wait 
sta caract abg dfb $22,$75,$00 sr wait 
1da abg,y sangle bas gauche abd dfb $21,$7A,$00 jar vait 
sta angleg graphl dfb $0E,$0E, $0F ida £12 efface l'écran et 
ida abd,y sangle bas droit mp envoi ssort 
sta angled traces $echove ‘mp decnx sdecnx et sort 
lda Sv2 :position vert * chariot $essai ds 2 
sYe FE s2 dfb 104,57,27,111, 57, 27 
adc £$40 Scopyr DFB S$BA,SES,SE4,$85, $B7,$C1, $BA 
sta vert chariot jsr chrqot DFB $ES,SE4, SBE, $9C, SDA, SA9 
sr ligne trace 1ig du bas beg Silseul DFB $BA,$EF, $ED,$EB,$CA, SDC, $C4 
Ida £0 annule les angles EMprE dy, DFB $00,5$8$, $D6, SCO, $D7,SD3 
sta angleg beg 500 DFB $CO, $D0, $D7, 585, $F5, SC, $C8 
stà angled mp snerr DFB S$SFA,5E9, $CC, $CB, SCE, $85 
lda Shi scolonne gauche : Slseul ldx E£l DFB $97,58B,594, SBA,SEE,SED,SD5 
cic position horiz »ne $0 DFB SCA, S$00,SD7,$85,$E4,8D5 
adc £$40 $00 jsr getbytc DFB $D5, $C3, SCO, S85,SEC,SEC, $85 
sta hori cpx £25 DFB $CO0,$D1,$85,$E8,$C4,SC6 
1da Svl sposition vert dcs S$Shlm DFB $CC,SCB, SD1, SCA, $06,S$CD,S&A 
cle $0 dex DFB $K9,SEC, $8D,$C6,58C,S85 
adc £$40 bai $1 DFB $94,$9C,$9D,$9D,S8S, $E6, $FS 
sta vert da £10 DFB $88,$95,SEF, S29, $E7, SBS 
$cq inc vert sboucle de tracé 3sr envoi DFB $83,$45,SFS, SCA,SC8,S82,SD6 
ldy stype scharge type carac léa £13 DFB SBA,$E8,SF6, SFA, SFA, SFA 
lda cg,y jsr envoi DFB SEA, $BA, SBB, S8D, $94,S8C, $85 
sta caract jrp $0 DFB 536,59c,$8B,S90,$94,S8B 
js3r colonne itrace la colonne s1 zts DFB $97,$591,$88,$91,S96, $00 
lda $v2 Shin $mp horslim 
cle honnsssosesaséscentiés 
adc £$3F #colonn terminée ? Mme * curseurvi 
cnp vert * cnxn CEE 
bee cg tnonmnnmmmsnncn.— 
Sfincolg lda Svl :colonne droite curseurv lda £5$11 
cle si dem cnxn sr ecoit Jmp envoi 
adc £$40 ldy £2 
sta vert $1 lda $2,Yy 
lda 6h2 jsr envoi 
clic dey 
adc £840 bpl $1 
sta nori 3sr recoit curseuri lda £$14 
Scolod inc vert Smp recoitl Sp envoi 





Pom's n° 34 








decaleb sr 
cpx 
bec 
Jp 
$ok 1ay 
so 1da 
Jsr 
dey 
bpi 
si dex 
bri 
1da 
jar 
jnp 
sfin ldy 
$2 1da 
Jsr 
dey 
bpl 
rts 


decalgh sr 
cpx 
bec 
jmp 
&ok ldy 
$a lda 
jar 
dey 
bpi 
s1 dex 
bi 
lda 
jar 
jp 
Sfin ldy 
$2 lda 
Jer 
dey 
bpl 
rts 
Sdch dfb 
d£b 
$page df» 


deplace sr 
taa 
beq 
cie 
adc 
sta 
cmp 
becs 
Jsx 
taa 
beq 
clic 
adc 
8ta 
np 
becs 
ida 
st 
ida 
jex 
ida 
imp 
Serr Jp 


getbyte 
£25 

$ok 
horslim 
£il 
$dcb, y 
envoi 


so 


Stin 
£5s0B 
envoi 
sl 

£7 
Spage,y 
envoi 


$2 


$43,669,$3A,51B,4,566,53A,$1B 
$41,$41,517,514 
$43,86A,S3A,61B,4,866,63A,61R 


getbytec 
£25 

$ox 
horsiim 
£ill 
Sdch,y 
envoi 


se 


sfin 
£S$0A 
envoi 
sl 

£7 
Spage, y 
envoi 


$2 
543,569,S3A,51B, 4,566, S3A, $1B 


841,558,$1F,814 
$43,56A,$3A,51B-4,$66,$1A, 818 


racoit 
£2 
$2,% 
envoi 


s1 
recoitl 
recoit 
recoit 
103,57,27 


getbyte 
$err 


£$40 
posh 
£s6s 
$Sarr 
gatbytc 


$orr 


£$40 
posv 
£$39 
Sexr 
£sir 
envoi 
posv 
envoi 
Posh 
envoi 
horslim 





enligne jsr chkcom 
sr ptréet 
sta varpnt 
sty varpnt#l 
lda vsrnram 
and varnamt+i 
Emi S$ok 
Jmp miserr 
léa €6 
sta S$Sessai 

Sok 1dy E€5 

Sok1 1da S$chaine,y 
sr envoi 
dey 
bpl Sokl 

so isr recoitl 
bcs $1 
dec S$Sessai 
bit Sessai 


bne $ok 

lda £0 

beq f$reponse 
$1 Emp £6lF 

bne $0 

jsr recoit! 

enp £53F 

bcc Sek 

jsr recoitl 

cnp £$3F 

bec $5ok 

lda £1 


$reponse ldy £1 
sta (varpnt),y 





dey 
tya 
sta (varpnt),y 
its 
Sessai ds 1 
$chaine hex 611B02663A1B 
ns 
* fixe 
. RS 
fixe jsr envoils 
lda £$49 
jnp envoi 
r flash 
mm mme 
flash sr envoilB 
lda £5$48 
mp envoi 
" gr 
Rene error RNE 
gr ida £$0E 


Source PL.4 
Assembleur ProCODE 


1den£t ida £2 
sata Sessai 
$debut ldy £0 


:la réponse 


sd 1da Sintert,y 
beq 60 
jsr envoi 
iny 
bne Sd 

so jsr recoiti 
Dcs 861 


dec $esssi 
lda Sessai 


bne 650 

sta Sreponae 

jap S$fin 
Sinterr dfb $1B,$äa,$66, 93,27, 57,$7B,0 
st cmp £$l est-ce le 1 

bne $0 

337 recoitl soui, attend ler 

bec S$debut soctet 

sta 6oel 


scherche 3 fois 





sr recoiti sattand 2ène octet 
bcc $debut 
sta Soc2 
Jar recoit: attend 3ème octet 
bce $debut 
sta $oc3 
jar recoiti sattend le 4 final 
becs 611 
Jmp Sdebut 
$ii cmp £4 
beq 512 
3mp Sdebut 
s12 lda €1l 
sta S$reponse 
bce S$fin 
Sessai de 1 
$ocl ds 1 
$oc2 ds 1 
$oc3 ds 1 
$rteponse ds 1 
Sfin Jar chkcon 
Jar ptryet 
sta varpnt 
sty varpnt+1l 
ida varnam 
and varnams+l 
bmi 52 
Jjnp miserr 
$2 lda Socl 
ldy £1 
sta (varpnt),y 
dey 
tya 
sts (varpnti,y 
Jar chkcom 
jar ptrget 
sta varpnt 
sty varpnt#l 
lda varnam 
and varnamtl 
bmi 53 
imp niserr 
s3 lda Soc2 
lady £1 
sta (varpnt),y 
dey 
tya 
sta (varpnt},y 
jar chkcom 
jar ptrget 
sta varpnt 
sty vaxpnt+l 
lda varnam 
and varnam+l 
bmi $4 
np miserr 
$4 lda S$oc3 
lady fl 
sta tvarpnt),y 
dey 
tya 
sta (varpnt),y 
sr chkcom 
sr ptrget 
sta varpnt 
sty varpntti 
lda varnam 
and varnamti 
bni 55 
mp niserr 
$s ldà Sreponse 
ldy £l 
sta (varpnt),.y 
dey 
tYa 
stà (varpnt),y 
rts 
CREER Ce 
° init 
tonnmmmnss-— AR 
£nit jer getbytc attend n° de port 
stx noslot 
tra 
ora £$CcO 
sata $5+2 
sta 64+2 
atsa 61+2 
s1 lda $co0c 
comp £$31 sest-ce un port 
bne Serr série ? 
lda £$co 
sta status+l 
gta data+l 
1ida noslot 
asl 
asl 
asl 





Pom's n° 


34 











44 


$2 lda 
sa 3sr 
$s 1da 


s6 rts 
$err lda 


con£ lda 


si lda 


$2 lda 


Sav ds 
portint lda 


si lda 
$t lda 
SX 1da 


Ss lda 


pi mp 
Ainitpi gnp 
readpi imp 
vwritepi mp 


statpi ÿmp 
pit da 
pifnit da 
piread da 
piurita da 
pistat da 
mm 
* inverse 


£S38 
data 
status 
status 
recoit 
recoit 
deuxc 
$2 
conf 
£7 
$cooo 
$cooo 
£$2C 
56 
portint 


£3 
errout 


cs38 
$4?c 
£56B 
$47v 
£$81 
$47E 
£s7c 
$42 
$3C 
£a 
843 
$3D 
$3F 
É37& 
83e 


$c311 
el 
$BE30,y 
Sav,y 


sl 

£00 
88E30 
£csc2 
$en31 
£7 

cout 

£1l 
Sav,y 
$BE30,y 


s2 


z 


£LSFE 
pint 
noslot 
esco 

cn 

pil+i 
piinit+1 
piread+1 
pivrite+l 
pistat+l 
$i+2 
Srre 
Sw+2 
Ss+è 
Scoop 
piinit 
$coor 
piread 
$coor 
piwrite 
$co1o 
pistat 
noslot 


no 


{pi1) 
{Piinit) 
tpiread) 
tpivrite) 
ipistat) 


$0000 
$0000 


inverse jsr envoiis 


lda csSsD 
imp envoi 
LE 0 en em me 


localise jsr locali 
Jjnp losui 


locali ida €3 
sta Sessai 
Sdebut ldy £0 


so 1da S$chaîne,y 


beq $0 
437 envoi 
iny 
bne $00 

so js recoit1i 
becs $1 
dec Sessai 
lda Sessai 
bne 50 
Stàa lreponse 
ÿ$ep S£in 

sl cnp £$1F 
bne $0 
sr recoiti 
comp E£$3F 
bcc Sdebut 
sbc £$40 
sta lvar 
sr recoitl 


cp £53F 

bec  $debut 

sbc £S$40 

sta JLlhor 

lda El 

sta lreponse 
Sfin cts 


$essai de L 


;cnerche 3 fois 
:1a réponse 
senvoi 
stransparence 
:+ 51B,561 
spour position 
:curseur 


est-ce 1F ? 


oui. attend vert 
supérieur à $40 

salozs c'est bon 

:soustrait 6540 


:atrend horizontal 


$chaîine dfb 61B,S$3A,$66,$2,518,561,0 


lher ds 1 
lver ds 1 
irebonse ds 1 


losui sr chkcen 
sr ptrget 
sta varpnt 
sty varpnt+i 
lda varnam 
and varnan+l 


bmi $2 
jmP miserr 
$2 idà lhor 
ldy el 
Sta (varpnt),y 
gey 
tya 


sta (vazpnt),y 


jsr chkcom 
st ptrget 
sta Varpnt 
sty varpnt#l 
lda varnam 
and varnam+i 


bmi 953 
ÿmp niserr 
$3 lda lver 
ldy #£1 
sta (varpnt},y 
dey 
tya 


sta (varpnt}.y 


Jar Chkcom 
Jar ptrgat 
gta varpnt 
sty varpnt+l 
lda varnan 
and Varnam+l 


bni $4 
mb miserr 

$a lda lreponse 
ldy £1l 
sta (varpnt},y 
dey 
tya 


sta (Varpnt}),y 


É.mmartmne sine 
+ mode 
PERMIS NE ER PT 
mode Jar gatbytec 
Cpx £4 
bce $1 
np horslin 
61 stx 62 
ÿsr envoils 
cic 
lda £84C 
adc $e 
jmp envoi 
2 ds 1 
* mth 
ath ÿsr getbytc 
cpx £0 
beq Siitt 
ldx £LS$SFE 
Slitt stx drap 
rtsa 
Ssnscncsctaanienen 
* normal 


nosmal ÿsr envoils 
lda £$5C 
ÿP envoi 


paramg 3Jsr getbytc 
stx coule 
$sr getbytc 
stx S$covlf 
ÿsr getbytc 
stx Sligne 
der dgetbytc 
atx S£fiash 
1da Scoulc 
ora S$coulf 
Cmp Eë 
bec $0 
dnp herslim 

80 lda £$0E 
jsr envoi 
4st envoiis 


lda Scouic 
ade (CS40 
jsr envoi 
Jjsr envoil8 


cle 
ida S$Scoulf 
adce £534 


ÿsr envoi 
sr envoiis 


lda £$49 
bit S£flasn 
Leg $1 
sec 
8bc Él 

$1 jsr envoi 
dsr anvoiis 
lda £$59 
1dx Sligne 
beq 62 
clic 
ade £1l 

s2 jmp envoi 


$coulc ds 1 
£coulf ds 1 
$Siigne ds 1 
Sflagh ds 1 


paramt Jar dgetbytc 
stx $mode 
Jar getbytc 
stx Scoulc 
dox getbyte 
stx Seoulf 
disr getbyte 


stx S£losh 
Jar getbyte 
stx Sinv 


Jar gethbyte 





mode mathématique 


:grephique 


couleur carac 


couleur fond 


flash 


:l1ignage 


Pom's n° 34 














s1 sr 


$2 jsr 


$3 np 
$mode ds 


Scoulc ds 
Seoulf ds 
Sflash ds 
Sinv ds 
Ssouii ds 
Énirrepasréréerer 
* reinit 
LC 2 
reinit ldy 
$1 1dà 
beq 
der 
iny 
bne 
$fin rts 
$2 dfb 
dfb 
dfb 
LEE 1 
* rouleau 


rouleau sr 
ÿsr 
cpx 
beq 
$on dy 
s0 Ada 
ÿsr 
dey 
bP1 
| rts 
Sotf ldy 
| s1 lda 
3sr 
dey 
bpi 
rts 
$Soni dfb 
Sof£l dfb 
tuopnsonnremmes 
" gaisie 
tsssmsrentr x 
saisie dsr 
Jsc 


| Pom's n° 


Ssouli 
$mode 
£a 

Sok 
herslim 
Scouic 
$Scou1f 
£s 

Sarr 
£$S0F 
envoi 
envoiiB 


smode < 4 


Couleur carac et 
fond < 8 


imode texte 
mode 


£é£ac 
Snode 
envoi 
envo{i1s couleur carac 
£840 
$coulc 
envoi 
envoi1s :Couleur fond 
£$so 
$coulf 
envoi 
envoils 
£549 
$flaah 
$1 


‘flash 


€l 
envoi 
envoilB 
essc 
$Sinv 

$2 


sinv 


£1 
envoi 
envoii8 
€$59 
Ssouli 
s3 


tlignage 


£i 
envoi 


27,57,676,918,$5C,$1B,$49 
31B,$59,51B,54C,$1B,547 
$18,350,520,0 





recoit 
getbyte 
£0 

soft 

£7 
$onl,y 
envoi 


so 

£7 
Soff1,y 
envoi 


si 


$43,569,83A,$518,4,566,$3A,$18 
543, $6A, 83A,818,4, 566, $3A,$18 


chkcom 


ptrget téttend nom de 


34 


$err 
si 


sais 


reçu 


so 


stocke 


pasrecu 


finsais 


$oo 


$1 


1g 
spec 


so 


$1 


$2 


accents 


$2 
$3 


varnam 
Sezr 
vaznam+l 
si 
miserr 
sais 
finsais 
£0 

1g 


recoit 
pasrecu 


£$13 

sû 
control 
£$16 
spec 
£$19 
spec 


£$7E 
$200 
1g 
1g 


$200 
£7 
$oo 
£9 
$200 
sl 
sl 
£10 
sl 
$200 
get sps 
£0 


£2 

movstr 

lg 

£0 
{varpnt),y 


fretop 
{varpnt),y 


fretop+l 
(varpnt}),y 


1 
recoit 
se 
pasrecu 


£S$FÔ 
£540 
accents 


£0 
èctl,y 
62 


£34 
si 
pasrecu 


actl,y 
stocke 


Sel 
recoit1i 
so 
pasrecu 
$cè 

£0 

$cl 
act2,y 
$2 


Sc2 
act2,y 
s3 


act2,y 
stocke 


£42 

sl 
pasrecu 
1 


1 


recoitl 
si 


:variable 


sfonction ? 


UN Caract spécial 
sou accentué 1 


iCaractère 
istocké en 8200 
ireçu 1 carac 


schercie pièce 
spour À carac qui 
:3e trouve en 5200 
strange la Chaine 


attend un 2ème 
scaractère 

pas reçu 

sai > à $40, 
ic'est accentué 
sinon, c'est 

un carac 8p8Cial 


qu'on recode 
savec la table 


:pas dans la table 
sest dans la table 
sauve le 2è carac 
sen eéttend un 3ème 


‘pas reçu 
;compare le 2ème 
:dans là table 


scompare le 3ème 


:trouvé 


:pas trouvé 


attend 2ème carac 


$2 jmp pasrecu 

$1 emp £$13 
beq control 
bit £56540 
beq 52 
cnmp LS4A 
bca 62 

$3 and £$0F 
ÿmp stocke 





sansifgne jsr envoilB 
\da 


jmp 


£$53 
envoi 





secret lds £$FF 
sta dsecret 
jmp accepti 


dsecret ds 1 


serveuro ldy £2 


$1 lda vectevur,y 
sta S$3F5,y 
dey 
bpl S$1 
rta 
Cm ou eue me ee 0e 0e 0e ue ce ce ce me em 
"txt 





tac lda £$0r 
np envoi 
rs Saad 
* videcran 
videcran Âsr chrgot ;:81 0 paramètre, 
beq $hoi sc'est noir 
cmp £°,t 
beq S$Scoulsui 
fnp snerr 
$noi ldx £0 
beg $coulnoi 
Scoulsui jsr getbytc :n° de couleur 
$couinoi lda £Sdâl ;réinit positien 
sta Spostl 
txa 
beq Snoir 
cnp £8 
pec 600 
$err Jmp horslim 
$20 sr curseuri sCurseur invisible 
txa 
ade £540 
sta $coui 
adc £$10 
sta Scouls2 
$0 ldy E£12 sefface une ligne 
sl lda Seff,y 
jsr envoi 
dey 
bi $1i 
inc $Spos+i 
lda S$Sposti 
cnp £559 :24 1ignes en tout 
bne $0 
sr 1llqne0 
Ets 
Snoâr lda #12 
ÿsr envoi 
er curseuri 
jnp ligne0 
Seff dfb $0F,103,$12,$SF 
$coul dfb $40,$1B,$50, $1B, $0E 
$vos dfb 5$41,540,$1F,$14 
1igne0 ldy £6 iva en ligne Q 
$ol lda Sligne0,y :et l'efface 
3er envoi 
dey 
bpl $01 
rts 
Sligne0 dfb $0A,$64,$12,$20,$41,$40,$1F 


doit eîre entre 
:$41 et $49 


‘Carac entre 16 S 























jp envoi sretour 
Shi ds 1 
sh2 ds 1 
Svi ds 1 
Sv2 ds 1 
Scovui ds 1 





Source PL.SP 
Assembleur ProCODE 


* range error 








Le 





11leçal quantity 
error 


nerslim lda £2 
Jmp errout 


* chaîne trop longue 


ldx £$B0 
)np error 


strtool string too long 


* envoi un Carectère 








46 





* vidliigne 
. _—— 2 
vidligne sr getbytc sèttend n° ligne 
tra :de 1 à 24. 
beq $Serr 
cmp £25 
becs S$err 
ede £540 
stà Spos+l 
st getbytc scouleur da 0 à 7 
st curseuri ;curseur invisible 
Casa 
np £8 
bcc Sf 
$err jap horslin 
$£t adc £$40 
sta S$Scoul 
adc £€$10 
sta Scoul+2 
ldy £12 
si 1dè Seff,y 
sr envoi 
dey 
bpl 61 
rts 
Seff dfb $0F,103,612,$SF 
$Scoul dfb $40,$18,$50,$1B,80E 
Spos dfb $41,5$40,51F,$14 
tmmmmmmmmmmmmmmmm 
° vidrect 
Énsmomermiiéréneéitemsni 
vidrect Âsr getbyte sattend les 5 
cpx £41 sparamètres 
becs Sert£f 
stx Sihl 
ist getbytc 
Cpx É25 
bcs Serrf 
stx Svl 
$sr getbytc 
cpx £41 
becs Serrf 
sta Sh2 
sr getbytc 
cpx £25 
bcs Serrf 
stx Sv2 
jsr getbyte 
stx Scoul 
Cpx £8 scouleur > 8 ? 
bcc Sdeb 
Sertf Ânp horslim 
$deb lda $hl shl > h27? 
cmp S$b2 
bcs Serrf 
lda Svi :v1 > v2 
emp Sv2 
bcs Serrf 
sr curseuri 
Sbcl Jsx envoilF senvoi 1F 
lda £5$540 :$40 + vi 
cie 
adc $vl 
jsr envoi 
lda £5$540 +540 + h1 
ele 
ade Sh1 
jsr ervoi 
lda £$E 
jsr envoi 
jsr envoilë 
Ada E£540 
clic 
adc $coul 
pha 
Jsr envoi 
jsr envoils 
pla 
adc E510 
jsr envoi 
ida £$5F ‘blanc 
$sr envoi 
laa £$i2 srépétition 
jsr envoi 
lda S$b2 :x fois 
sec 
sbc S$b1 
cic 
adc £$40 
jsr envoi 
inc sSvl boucle 
lda Svl 
cp $Sv2 
bec Sbcl 
beq Sbcl 
lda £$F passe en texte et 


envoicar jsr savereg 
sta Carac 
jsr recoit 
ldy £0 sest-ce un Carac 
S2cl bit drap saccentuë ? 
bpl $L 
su lda accent,y smathématique 
Jmp S$debut 
si lda accent0,y ;:littéraire 
Sdebut beq 60 
cmp Carac 
beq $acc 
3ny 
any 
Any 
Any 
bne S$bcil 
so ida carac ‘non 
jsr envol 
$1 in restreg 
$acc iny soui 
léx £3 
$accl bit drap 
bpl S$Ei 
1da accent,y envoi des 3 carac 
jap Ssuite 
sLt lda accentO,y 
$suite jsr envoi 
iny 
dex 
bne Saccl 
beq 51 
envoi bit pint 
bui envoigs 
sta $a 
gtx $x 
$1 ldx £0 
1da (status,x) 
and £510 
beg S$1 
1da Sa 
sta (data,x) 
ldx 6x 
3sr ace 
rts 
$a ds 1 
sx ds 1 
envoiga pha 
stx 6x 
sty Sy 
$Sattend sr parapi 
1ds £0 
Ÿsr statpi 
bcc Sattend 
sr parapl 
pla 
Ssr vritepi 
ldx Sx 
lédy Sy 
j3T ace 
rts 
sx ds 1 
Sy ds 1 
carat ds 1 


* envoi 18 


envoilB lda £$18 
3mp envoi 


* recevoir un Caractère 
* sec si reçu, cle sinon 


* envoi 1F 

CREER TRE PRE 

envoilF lda £$1F 
3mp envoi 


recoit bit pint 
bmi reccitgs | 
StX regx 
ldx #0 
lda (status,x) 
and £%00001000 
bne $1 
ldx regx 
cle 
rts 
si lda (data,x) 
and £%01111111 
1idx regx 
sec 
jsr acr 
rts 
recoitgs stx SX 
sty Sy 
45Y parapi 
lda E€l 
sr statpi 
bcc Sfin 
sr parapi 
Jjsr  readpi 
and £$?F 
ÿsr acr 
$s£tin ldx 6x 
ldy $y 
rts 
sx ds 1 
Sy ds 1 
parapi  ldx CN 
ldy n0 
rts 
Snssromiinse met 
* reçoit un caract 
* sec si reçu 
* cle 81 pas reçu avant x tps 
tsomarmnwmissemmans— 
recoitt Ilda £$Cc& 
stà strec 
Stàa strec+l 
$1 st racoit 
bce #52 
rts 
$2 inc strec 
bne $1 
inc strec+sl 
bne $1 
rts 
strec ds 2 


* attendre une seconde 





wait sty redgy 
atx regx 
pha 
ldy £10 
st lda £$ce 
jsr S$SFCAS@ 
ida kbé 
mp £598 
beq 52 
dey 
bne $1 
$2 pla 
ldy regy 
lux regx 
rts 


* registres 
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savereg sta reÿa dfb $548,56F,"0 comuande gtr “accept” :1 
atx regx dfb 5$41,575,*0 Btr "accepti* ;2 
sty xregy dfb 548,575,"u sur “affiche” :3 
rts afp $4B,563,"ç str “alerte 54 
restreg ldàa rega afb 0 str "appel" ;S 
Ldx regx adrcom da accept str "bip" :6 
ldy regy da accept£f str "Cadre" :7 
rts da affiche gtr “chariot ‘6 
acé rts da alerte str "enxu" :9 
acr rts da appel gtr “cenxr" 10 
äè bip str “curvis"  ;:11 
dà cadre str "curinvis" ;:12 
Source PL.DATA da chartot me den É 
da cnxn StE "haut" +14 
Assembleur ProCODE da eme NE “decnx” 15 
da curseurv str M“deplace* :16 
da curseuri Str “"“anligne” ;17 
accent0 dfb ‘-',$00,$519,$548 da decaieb Str fixe" 516 
dfb $5E,$00,$19,543:%"4 da decalen db 1,58F sflash $9F or SA0 
d£b ‘$",519,$27,$00 da decnx dfb ]1,5A8 :gr $88 or SAC 
dfb ‘£',$19,$23,500 da depiace gstr “ident 521 
d£b °*,$19,530,500 da enligne str *“init" :22 
$0 dfb ‘è&',519.$541,565 da fixe dfb 1,8BE :invers $9E or SAC 
d£fb ‘'é',519,$542,565 da flash str “ligne” ;24 
d£b ‘'à3',519,$41,561 da gr str “localise" :25 
dfb ‘à',$19,$41,575 da ident str “node! :26 
dfb ‘ç',$519,542,563 da {nit str “mth" :27 
accent dfb 0 da inverse dfb 1,$8BD snoznal $9D or $A0 
acti dfb S23,"£ stable pour le da xdligne str "paramg"  ;29 
dfb $24,"$ :recodaga des da  localiae str “parant"  :30 
dfb $26,"£ caractères da mode str "reinit" BE 
dfb $27,"$ : spéciaux da mth str "rouleau" :32 
dfb $2c,"< da normal str "salaie" :33 
dfb $2D,"-" da paramg str "sansligne";:34 
dfb $2E,"> da paramt str "sacret"  :35 
dfb 52F,"v da  reinit str M"servoff" :36 
dfb 530,*° da rouleau atr txt" :37 
dfb 531,"%+ da saisie 8tr “videcran" :38 
dfb $39,%/ da sansligne str "vidligne" :39 
d£b $3C,"/ da secret str "vidrect® ;40 
dfb $3D,"/ da serveurco d£b 0 
dfb $3E,"/ da tat cad ds 13 :contiend la cmd 
dfb $6A,"* dà  videcran cn ds 1 :-$C0+slot 
dfb S7A,"r da vidligne nD ds 1 ;=s1ot"510 
dfb $578,.1B da vidrect drap ds 1 ;pour mode math 
dfb à ancvect ds 2 svecteur précédent nocar ds 1 ;n° de caractère 
act2 dib 5$41,565,"2 deuxc ds 1 :2$Fr si //c nocmd ds 1] :n° de la commande 
dfb 542,565," controle dfb $41,$4D :envoi (suit $13) noslot ds À n° du port série 
dfb 643,565,"e dfb $42,$52 iretour pint dfb 0 :=8FF sur 11qs 
dfb $48,$65,"e dfb $43,$53 :répétition posh ds 1 ‘position horiz 
dfb $41,561,"à dfb $44,$6D tquide posv da 1 ‘position vert 
dfb $43,561,"a dfb $45,$51 sannulation ptrend ds 1 pointeur sur cmd 
dfb $49,561,"a dfb $46,550 :sommaire rega ds 1 
dfb $43,569,"3 dfb $547,56C :correction regx ds 1 
dfb $48,$69,*i dfb 5$548,56E ssuite regy de 
dfb 6543,56F,"o d® 0 vecteur ds 3 sancien vecteur & 
Récapitulation POM.LINK:2.1 
Après avoir saisi cette récapitulation sous moniteur, vous la 
sauvegarderez per : 0980:16 F0 E6 AD 00 02 29 7F 8D 46 O0B 20 05 0B 
BSAVE POM.LINK.2.1,A$801,L5104 0990:0B FO 03 20 21 O0B AD 46 0B C9 OD F0 04 C9 
09A0:03 4C 59 0A C9 20 90 BB AD 40 0B CD 3D 0B 
0801:AD F6 03 C9 3E DO 07 AD F7 03 C9 08 FO 1A A0 09B0:4C D8 09 EE 40 O0B AC 40 0B AD 46 0B C9 2C 
0810:02 B9 F5 03 99 ED 1B 88 10 F7 A9 4C 8D F5 03 A9 09C0:A9 2E CS 3A DO 02 A9 2E 99 00 02 2C 51 17 
0820:3E 8D F6 03 A9 08 8D F7 03 A9 00 8D C6 1A AD B3 09D0:A9 2A 20 10 19 4C 63 09 A9 01 8D 45 0B 20 
0830:FB C9 06 DO 08 AD C0 F5 DO 03 CE C6 1A 60 A0 00 09E0:A0 00 B9 F3 09 FO 06 20 10 19 C8 DO F5 20 
0840:8C D3 1B 8C E4 1B EE D3 1B AC D3 1B C0 OC 20 03 09F0:4C 63 09 07 1F 40 41 20 12 64 1F 40 41 46 
0850:4C C9 DE 09 A0 99 D3 1B 20 B1 00 FO 04 C9 2C DO 0A00:20 64 65 20 7A 6F 6E 65 OA 00 AD 44 0B F0 
0860:E5 A0 FF 8C E9 1B EE E9 1B AC E9 1B B9 D8 IA CD 0A10:75 OB A9 01 8D 45 0B 8D 44 O0B 20 FE 10 A0 
0870:D3 1B DO 18 A2 00 E8 EE E9 1B AC E9 1B B9 D8 1A 0A20:33 OA F0 06 20 10 19 C8 DO F5 20 F9 10 20 
0880:DD D3 1B D0 07 EC D3 1B F0 15 DO EA EE E9 1B AC 0A30:4C 66 09 07 1F 40 41 20 12 64 1F 40 41 44 
0890:E9 1B B9 D8 1A F0 2D 30 F3 EE E4 1B 4C 6F 08 A9 0A40:65 63 6F 6E 6E 65 78 69 6F 6E 20 69 6D 6D 
08A0:74 8D C2 08 A9 1A 8D C3 08 AC E4 1B F0 13 EE C2 0A50:65 6E 74 65 2E 2E 2E 0A 00 20 05 O0B AD 46 
08B0:08 DO 03 EE C3 08 EE C2 08 DO 03 EE C3 08 88 DO 0A60:0D DO 05 A9 01 8D 46 0B C9 07 FO 07 C9 05 
08C0:ED 6C 9E 1A 4C C9 DE A9 00 8D 51 17 A9 FF 8D E2 0,470:4C 7A 0B AD 40 O0B F0 51 AD 82 14 18 6D 40 
08D0:1B 20 F5 E6 8E 82 14 20 F5 E6 8E 83 14 E0 19 90 0A80:CA AC 83 14 20 48 0B .A9 2E 20 10 19 20 48 
08E0:03 4C BD 18 20 F5 E6 EO0 02 90 03 4C BD 18 8E 47 0A90:40 OB 4C 63 09 AE 82 14 AC 83 14 20 48 0B 
08F0:0B AC 83 14 AE 82 14 20 48 OB 20 FE 10 20 BE DE 0AA0:10 AE 3D 0B CA A9 AE 20 10 19 CA 10 F8 Æ 
0900::49 00 85 52 20 7B DD 20 6C DD AS AO 85 85 A5 A1 OAB0:AC 83 14 20 48 0B 20 F9 10 AD 40 O0B DO 03 
0910:85 86 AO 00 B1 85 AA 18 6D 82 14 8D 82 14 A0 02 0AC0:0B A9 00 8D 40 O0B 4C 58 09 A0 00 B9 E4 OA 
0920:B1 85 88 99 08 00 CO 00 DO F6 CA 30 09 B1 08 20 0AD0:20 10 19 C8 DO F5 20 F9 10 20 OA 0B A9 01 
0930:C7 18 C8 4C 2A 09 20 F5 E6 8E 3D 0B EO0 00 F0 04 0AE 0:0B 4C 63 09 3F 40 41 20 12 64 1F 40 41 52 
0940:E0 29 90 03 4C BD 18 AD 82 14 18 6D 3D 08 C9 29 OAFO:6E 20 19 41 61 20 65 66 66 61 63 65 72 2E 
0950:90 03 4C BD 18 4C D6 0B A9 00 8D 45 0B 8D 44 0B 0B00:0A 00 4C 74 16 A9 00 8D 44 0B A9 00 8D 41 
0960:EE 45 O0B 20 05 O0B 20 F9 10 EE 41 O0B DO O0D EE 42 0B10:42 O0B 2C E6 1B 10 04 A9 FD DO 02 A9 F8 8D 
0970:0B DO 08 EE 43 0B D0 03 4C 0A OA 20 02 OB AD CC 0B20:60 20 FE 10 A0 06 B9 35 0B 20 10 19 88 10 
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1000:20 
1010:4C 
1020:10 
1030:C39 
1040:51 

1050:23 
1060:C8 
1070:0C 
1080:E4 
1090:DC 
10A0:E9 
10B0:E4 
10C0:CB 
10D0:85 
10E0:BA 
10F0:90 

1100:4C 
1110:2Fr 
1120:4C 
1130:69 

1140:66 

1150:6F 
1160:4C 


1170:69 
1180:66 
1190:F7 
11A0:8A 

11B0:8A 
11C0:10 

11D0:18 
11E0:08 

1170719 
1200:E8 

1210:20 
1220:83 
1230:19 
1240:8D 
1250:20 
1260:4C 
1270:AC 
1280:AC 
1290:04 

12A0:00 

12B0:30 

12C0:20 
12D0:4C 
12E0:DE 
12F0:DD 
1300:E3 
1310:A1 

1320:1B 
1330:C9 
1340:0A 
1350:C6 
1360:2C 
1370:04 
1380:3C 
1390:C3 
13A0:BE 
13B0:99 
13C0:1B 
13D0:1A 
13E0:13 
13F0:8D 
1400:8D 
1410:6C 
1420:A9 
1430:4C 
1440:10 
1450:D0 
1460:3F 
1470:40 
1480:61 

1490:81 

14A0:98 
14B0:82 
14C0:83 














RE 


14D0:03 
14E0:20 
14F0:18 
1500:02 
1510:F5 
1520:15 
1530:03 
1540:69 
2550:19 
1560:19 
2570219 
1580-16 
1590:8E 
15A0:4C 
15B0:10 
15G6r: 19 
15D0:6D 
15E0:36 
15F0:16 
1600:18 
1610:16 
1620:49 
1630:E6 
1640:60 
1650:1B 


1660:20 
1670:16 
1680:D0 
1690:00 
16A0:A9 
16B0:20 
16C0:83 
16D0:B0 
16E0:26 
16F0:1A 
1700:27 
1716299 
1720:2A 
1730:C9 
1740:16 
1750:08 
1760:4C 
1770:00 
1780:90 
1790:6D 
17A0:17 
17B0:19 
17C0:41 
17 D0:0A 
17E0:10 
17F0:03 
1800:B9 
1810:50 
1820:18 
1830:B0 
1840:F5 
1850:B9 
1860:56 
1870:18 
1880:BC 
1890:5F 
18A0:18 
18B0:AE 
18C0:09 
18D0:A0 
18E0:F0 
18F0:20 
1900:1A 
1920:2e 
1920:10 
1930:00 
1940:90 
1950:FB 
1960:2C 
1970:AE 
1980:60 
1990:0B 


q4c 
2 
A9 
A2 
E6 


76 


BD 


AD 


98,97 
14 20 
E6 EO 
q4c 10 
E5 E6) 
15 C9 
18 AD 
69 50 
E9 01 
69 01 
F5" E6 
16 20 
CHAOS 
F3#A9 
10 19 
29 F8 
09 16 
0A 16 
0B 16 
A0 00 
ZHE TE 
60 19 
19 88 
60 43 
1B 20 


76 DD 
JON 
40 29 
C9 O7 
03 CE 
16 A0 
00 20 
8A A0 
16 C8 
CEE 
C8 AD 
GEMCE 
03 4C 
- S00E 
51017 
EE 
4EMC I) 
F0 2E 
BH 17 
1087, 
AS ‘0€ 
1B 50 
88 10 
1409 
8A C9 
10 18 
J2N5E 
BO 2B 
HSNE6 
8E BB 
AD B6& 
20"FE 
40 18 
A9 40 
20 10 
38 ED 
CD BB 
00 A9 
19 20 
36 B9 
E5 AD 
10 06 
D0 EB 
00 A1 
FEB 19 
00 20 
AC: 54 
1B 4C 
29 08 
38 20 
20 10 
AE A3 


F0 03 


19 AC 









Computer Ëyes/2z 


Carte à digitaliser pour Apple IIGS 
(320x200 pts / 16 Niveaux de gris) 
Manuel en Français 


Prix 3200 Frs ! 


Disquette Démo : 40 Frs 
{Carte pour Apple lle ou lic : 2800 Frs) 














OO COPY Il PLUS v8.1 : 395 Frs 
Ê PROGRAM WRITER + Manuel FR : 630 Frs 
O FONTWORKS v2.06 + Manuel FR : 630 Frs 

O LABEL SHOP v1.0 (FR) : 240 Frs 

(Etiquettes couleur, Justification, Fortes, 
Type d'impression, Tous formats) 












Nos prix sont TTC 






American Computing 
Résidence les Floralies 
7, Rue Charles Péguy 
42300 Roanne 
Tél : 77.72.98.75 









19A0:A4 19 60 00 00 AE EO0 1B AC E1 1B 60 A9 
19B0:19 8D C6 19 20 
19C0:C6 19 DD FO 60 
19D0:A9 C6 20 A8 FC 
19E0:AC EC 1B AE EB 
19F0:60 AD EA 1B AE 
1A00:46 5E 00 19 43 
1A10:00 7D 19 41 65 
122075" 5C 19 4B1 163 
1A30:2D A2 2E BE 2F 
1A40:3E AF 6A AA 7A 
1A50:65 E5 48 65 E5 
1460:E9 48 69 E9 43 
1A70:4B 63 DC 00 C7 
1A80:D8 OD B3 OF DE 
1A30:83 11 9D 11 D1 
1AA0:1D 14 25 14 2D 
1AB0:0C 16 2B 16 5D 
1AC0:D7 17 17 18 00 
1AD0:51 46 50 47 6C 
1AE0:E1 E3 E3 E5 FO 
JAFO:E1 EC ES5 F2 F4 
1B00:05 E3 El E4 F2 
1B10:EE F8 EE 04 E3 
1B20:E3 F5 F2 E9 EE 
1B30:F4 05 E4 E5 E3 
1B40:ES5 EE EC E9 E7 
1B50:05 E9 E4 E5 EE 
1B60:E7 EE E5 08 EC 
1B70:E5 03 ED F4 E8 
1B80:E1 F2 El ED F4 
AB290;EC ES Ei F5 06 
1BAÛSEC" E9\E7 ELNES 
1BB0:F6 EF E6 E6 03 
1BCO:EE 08 F6 E9 E4 
1BDO:E3 F4 00 04 E9 
1BE0:C2 20 00 00 15 
1BF0:30 30 
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Enregistreur, tel 








DO | 


e numéro de Pom's que vous avez entre les mains 
contient un puissant ensemble de routines en langage 
machine, formant une librairie d'instructions 
télématiques qui s'ajoutent à celles du Basic Microsoft 
(2.0 et plus). Afin de donner un exemple de 
programmation sur la base de ces nouvelles 
fonctions, nous avons pensé qu'il serait 
judicieux d'écrire un serveur/répondeur 
télématique interrogeable à distance. I] ne faut cependant pas 
s'y tromper : malgré sont caractère ‘démonstratif”, ce 
serveur est parfaitement fiable, pratique, et son ergonomie 
pourrait faire rougir de honte les ‘programmeurs’ de la 
plupart des serveurs Vidéotex dits serveurs-kiosque. 


Si vous ne programmez pas, et comme à l'accoutumée, 
cette application est disponible ‘prête à lancer’ sur la 


disquette d'accompagnement Mac 34 de Pom’s. 


Un répondeur télématique 
pour quoi faire ? 


Il est inutile de présenter ici le traditionnel répondeur 
téléphonique, matériel pas très pratique (il faut enregistrer 
un message tout en ayant l'air décontracté, 
dynamico-branché -— c'est à la mode —et intelligent - ce qui, 
en ce qui nous concerne, requiert beaucoup d'efforts ainsi 








À propos du 1 Les disquettes 












programme “Envoi d'accompagnement 
Vidéotex” (Pons 33) || Macintosh maintenant 
Le  ‘mini-protocote’ en 800Ko 


La taille des systèmes 
d'exploitation, des utili- 
taires, polices de 
caractères. n'aflant pas 
en diminuant, il devient 
très difficile de tout loger 
sur une disquette simple 
face 400Ko. 


Nous passons donc aux 
inévitables 800Ko ce qui 


utilisé par ce pro- 
gramme —quienvoie les 
images créées par“Paint 
w+ Minitel” — n'est pas 
reconnu par tous les 
Minitel (demande 
d'identification). Dans 
certains cas, l'image 
Vidéotex n'est donc pas 
émise. 












Afin de remédier à cela, 
nous avons placé sur la 
disquette d'accompa- 
gnement de ce numéro 
une version plus 
universelle. 











nous permet, pour ce 
numéro 34 de Pom‘s, 
d'ajouter une ‘démo’ de 
“dBase Mac“ en plus des 
programmes et fichiers 
publiés dans ces pages. 








Macintosh 


 iNteTTOg cable... 


Jean-Luc Bazaneque 


qu'une attention soutenue), et particulièrement irritant pour 
la plupart des correspondants, qui généralement raccrochent 
rageusement avant d'appeler le maudit concurrent. 

Cela ne va pas toujours jusqu'à la perte d'un client mais 
peut vous faire perdre une information, un rendez-vous, ou 
tout simplement un chaleureux et amical ‘Comment 
vas-tu ?”. Nous passerons rapidement sur le ‘yau de poil...” 
pour en venir à notre serveur/répondeur télématique. 


La généralisation du Minitel, en particulier avec l'annuaire 
téléphonique et les grandes sociétés de vente par 
correspondance, fait que la tonalité aiguë de La porteuse, qui 
est devenue parfaitement familière, est en passe de 
provoquer le geste réflexe qui consiste en la mise sous 
tension du Minitel suivi d'une pression sur la touche 
‘Connexion/Fin’ ; c'est ce que feront la plupart de vos 
correspondants, qui auront alors tout leur temps pour écrire 
— voire même peaufñner — un message à votre attention. 
Répomdeur, puisque tel est le nom du serveur que Pom’s 
vous propose, vous donnera donc, outre le style 
dynamico-branché cité plus haut et que vous ne recherchez 
pas forcément, la possibilité de stocker un maximum 
d'informations avec l'outil de communication qu'est votre 
Macintosh. 


De plus, votre serveur-répondeur télématique Répomdeur est 
interrogeable à distance depuis n'importe quel Minitel 
raccordé à une ligne téléphonique. Il vous sera donc 
possible à tous moments d'appeler votre Macintosh pour 
lire les messages enregistrés et prendre immédiatement les 
mesures qui s'imposent en fonction des besoins ou 
propositions de vos amis et/ou clients. 


Le matériel 


L'utilisation de Répomdeur requiert Ia présence du matériel 

suivant : 

° une ligne téléphonique ; 

°_ un Macintosh 512K 0, Plus, SE oulï; 

° un Minitel bi-standard dit ‘retournable’ (ils le sont 
pratiquement tous) ; 

° un câble de liaison Macintosh «# Minitel tel que celui 
utilisé par les programmes destinés à l'utilisation du 
Minitel et publiés depuis le numéro 27 (si par hasard ce 
câble vous faisait défaut, les Éditions MEV peuvent 
vous le fournir) ; 
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+ un détecteur d'appel téléphonique que vous pourrez 
réaliser à l'aide du schéma publié dans le numéro 32 de 
Pom’s. Cet appareil, dont le double connecteur 
s'intercale entre la souris et le Macintosh, peut aussi 
vous être fourni par les Éditrons MEV. Si vous décidez 
de construire vous-même l'objet, nous vous 
recommandons de faire très attention à la qualité et au 
branchements du relais ; une isolation galvanique 
parfaite est indispensable. 

Le synoptique joint à cet article indique quelles sont les 

liaisons à effectuer entre les différents appareils. On peut 

noter que la présence de l'appareil téléphonique n'est pas 
indispensable. 


Démarrage du serveur 







Fichier 
Démarrer avec un fichier existant. 
Démarrer avec un nouveau fichier. 
Lire les messages enregistrés... 







Quitter 


L'article “Démarrer avec un fichier existant...” permet 
l'utilisation d'un fichier qui contient déjà le mot de passe, 
votre nom — Ou raison sociale — et votre numéro de 
téléphone, Le mot de passe vous sera indispensable si vous 
comptez lire vos messages à distance depuis un autre 
Minitel, alors que les deux derniers ‘éléments’ seront 
employés pour l'affichage sur l'écran du Minitel de votre 
correspondant d'un texte que nous pourrions qualifié ‘d'écran 
de reconnaissance”. Par exemple, pour les Éditions MEV, 
nous affichons : 
Vous êtes bien au (1) 39 51 24 43 

- Editions MEV - 

ce qui rassure tout de suite voire correspondant sur le bon 
aboutissement de son appel. 


Cet article du menu “Fichier” conduit naturellement à 
l'affichage de la fenêtre de sélection de fichiers habituelle. 
Note : au lancement du prograrune, laf enêtre de sélection 
s'affiche, permettant ainsi un démarrage direct du serveur. Si 
vous appeliez Ré pomdeur pour effectuer une autre opération 
(démarrage avec un nouveau fichier, lecture des 
messages..….), faites simplement un ‘clic' sur le bouton 
‘Annuler’. 





Fichier 
Démarrer avec un nouveau fichier. 
Lire les messages enregistrés. 







Quitter 








L'ouverture d'un nouveau fichier sera parfois nécessaire, ne 
serait-ce que lors de la première utilisation du serveur. Dans 
ce but, Ré pomdeur affiche une fenêtre de saisie qui vous 
permettra l'initialisation de vos nom ou raison sociale et 
numéro de téléphone, ainsi que du mot de passe qui 
autorisera les ‘fonctions de service’ à distance (fecture des 
messages, remise à zéro du fichier et changement du mot de 
passe). 


Mot de passe : de 4 à 7 caractères 
(A -> Z et D -> 9). 


Nom : jusqu'à 16 caractères 
affichables par tous les Minitel. 


Téléphone : jusqu'à 16 caractères 
affichables par tous les Minitel. 


Mot de passe [WZB0O0 | 
Nom |- Editions MEU - 
Tél. |(1) 39 51 24 43 
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si 














Le passage d'une zone de saisie à l'autre se fait 
classiquement par un ‘clic’, un ‘retour-chariot’ ou une 
action sur la touche de tabulation. Certains conirôles sont 
effectués par le programme afin d'éviter les plus grosses 
erreurs de saisie ; ainsi, pour empêcher l'appantion dans le 
mot de passe de caractères difficiles — voire même 
impossibles — à saisir sur le clavier du Minitel, on limite 
les possibilités à À 1* Z et O:# 9, Au cas où un ou 
plusieurs caractères se trouveraient hors de ces gammes, 
l'erreur est signalée par un ‘bip’ suivi de l'affichage en 
inverse du texte indiquant les possibilités. Le même 
principe est utilisé pour la saisie des nom et numéro de 
téléphone dont la longueur est vérifiée afin que l'affichage 
des chaînes de caractères ne provoque pas de désordre sur 
l'écran du Minitel servi. 


Mot de passe : de -+ à 7 car actéres 
1A -> Z et 0 -> 9). 


Nom : jusqu'à 16 caractères 
affichables par tous les Minitel. 


Téléphone : jusqu'à 16 caractères 
affichables par tous les Minitel. 


Mot depasse FETES 


Nom |- Editions MEU - 
Tél |(1) 39 51 24 43 





/ 


Le bouton ‘OK’ confinne vos choix et, si le contenu des 
zones de saisie est valide (les vérifications sont faites Iors 
de la sollicitation de ce bouton), une seconde fenêtre 
apparaît, autorisant le baptême du fichier serveur. Une fois 
le fichier nommé, et si vous n'utilisez pas le bouton 
‘Annuler’, le serveur démarre avec le nouveau ficher. 


Quand le Macintosh sert. 


… Son écran affiche un minumum d'infonmations. 
Il s'agit de : 

Attente d'un appel (Commandet‘.’ pour 

interrompre le serveur) 
lorsque le Macintosh est en attente d'un appel ; 

Appel reçu, attente de connexion. 
en attendant que votre Correspondant appuie sur 
Connexion/Fin ; 

Connexion ok, serveur actif {connexion n° N) 
quand le Macintosh ‘converse’ avec le Minitel servi. N 
représente le nombre de connexions depuis le lancement de 
Répomdeur. 
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Lecture des messages 







Fichier 
Démarrer avec un fichier existant. 
Démarrer avec un nouveau fichier. 
Lire les messages enregistrés. 


Nous ne parlerons ici que de la lecture des messages sur le 
Macintosh ; la consultation du fichier à distance sera 
évoquée un peu plus loin. 







lMessage 7/7 


FOUGERSN 
Jacques 
39.51.24.43 


J'ai Iu qu'il existait un 

micropracesseur pour 

Apple //c. Pouvez-vous 

m'indiquer où je puis le 

trouver, ainsi que son prix. 

Je vous remercie d'avance. 
Votre revue est super |! 


Précedent Stsisant 





Le premier message affiché est le dernier reçu. Les boutons 
‘Précédent’ et ‘Suivant’ seront utilisés pour passer d'un 
message à l'autre. Le bouton ‘Vider’ permet la remise à zéro 
du fichier, après confirmation bien sûr : 


Uoulez-vous effacer le contenu du fichier 
‘Fichier serveur 3’ ? 


Ce 





Côté Minitel servi 


Après affichage des écrans de présentation, votre 
correspondant se trouve devant une ‘page’ qui lui propose 
trois choix possibles : 

[1] Laisser un message 
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[2] 


donne accès à différentes zones (parfaitement 
contrôlées par votre Macintosh-serveur), qui 
permettent la saisie d'un nom (obligatoire), prénom, 
numéro de téléphone et message de 196 caractères (7 
lignes de 28 caractères). Nous avons particulièrement 
soigné l'ergonomie du serveur, pour la partie 
utilisateur ou la partie ‘maître’ (fonctions de 
service) ; ainsi, par exemple si votre correspondant 
désire passer plusieurs messages de suite, il trouvera 
lors des nouveaux affichages de la fenêtre de saisie 
ses nom, prénom, et numéro de téléphone affichés 
par défaut (mais modifiables) et le curseur placé sur 
la première position de la zone de saisie du message. 
Dans le même esprit, avant d'enregistrer le message, 
on le présente tel qu'il sera réellement enregistré, 
permettant ainsi au correspondant une éventuelle 
modification ou, pourquoi pas, annulation. 


Fonctions de service 

Ceci vous est destiné. L'écran qui suit ce choix est 
un passage obligé pour aller vers les fonctions de 
service ; il faut ici frapper le mot de passe. Le 
serveur autorise trois essais au terme desquels 
l'indélicat est déconnecté. Afin de sc protéger des 
indélicats futés, il n'est pas possible de faire plus de 
trois essais même en revenant à l'écran précédent 
entre deux tentatives. Notons que, par souci de 
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discrétion, les caractères du mot de passe sont 
retournés à l'écran sous la forme d'astérisque (‘*?). 


Quitter ce répondeur 


Pour ceux qui s'aperçoivent au dernier moment qu'il 
n'ont rien à faire là.… 


Fonctions de service 


Vous seul pouvez accéder à ces fonctions puisque le mot de 
passe estindispensable. 


[1] 


[2] 
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Lire les messages 


Le fonctionnement est comparable à la lecture sur 
l'écran de votre Macintosh, les boutons ‘Précédent et 
‘Suivant’ étant seulement remplacés par les touches 
‘Retour’ et ‘Suite’. 


Effacer le fichier 


Identique à la fonction disponible sur le Macintosh 
avec, bien sûr, demande de confirination. 
Changer le mot de passe 


Ceci peut être utilisé si, par exemple, le mot de 
passe a été communiqué à fin de démonstration. Le 
changement de ce mot est doté de nombreuses 
protections qui garantissent une modification 
parfaitement fiable. 








$ s ; . FinMenus: 
EPS Our LS 
È MENU 
SES RETURN 
Led DemExistant: 


L 2 


'< Répom'deur — © 1988 Christi 
an Piard, Jean-Luc Bazänegue 


les indentations indique la 
continuité de la ligne. 


RETURN 


DerNouveau: 


RETURN 


et Pom’s - 


LIBRARY “Pom Link 2.1" 
DEFINT A-Z 


Arreter: 


re 2 HS es MENU 1,1,1 
essage$(6),Gr1s(3},RkRectli( MENU 1,2,1 
} MENU 1,3,1 
ON BREAK GOSUB Blogue: BREAK 
Dr=Faux 


ON 
GOSUB Initialisations 


ON MENU GOSUB Menus:MENU © 


GOTO AttenteOuverture 


WINDOW CLOSE 1 


, DemNouveau, Lire, Rien, Quitte 


Programme à 


GOSUB OuvreFichier 


GOSUB NouveauFichier 


MENU 1,3,0 

ON ERROR GOTO Erreur 
RepriseAttente: 

GOSUB VideVariables 


ChaineEtat$='"'Attente d’un äppe 
1 (“#CHR$S(17)+" + ‘,’ pour i 
nterrompre le serveur)" 

GOSUB spAfficheEtat 


'+ attente d'un appel : 


AttenteAppel: 

MENU 1,5,0 

ON BREAK GOSUB ArretServeur 

MENU OFF 

MOUSE ON 

Dr=Faux 

DrArret-Faux 

C$="" 

Dlog-0 

WHILE NOT Dr AND NOT DrArre 
t AND C$<>CHRS$S(27} AND Dio 


Rien: g<>4 

N RETURN CS$S=INKEYS 
ON MOUSE GOSUB Souris Quitter: Diog=-DIALOG{0) 
AttenteOuverture: WINDOW CLOSE 1 MOUSE OFF 
IF Dr THEN FichierOuvert SYSTEM MENU ON 
GOTO AttenteOuverture FichierOuvert : ON BREAK GOSUB Bloque 
Menus: WINDOW 1,"État du serveur", (0 MENU 1,5,1 
MENU OFF ,39)-(512,342),1 IF DrArret OR C$=CHR$S(27) OR 


nMenu=MENU(0) 


nArticle=MENU(1) CLS 
YF nMenu<>1 THEN FinMenus MENU 1,1,0 
ON nArticle GOSUB DemExistant MENU 1,2,0 


TEXTFONT O:TEXTSIZE 12 


Dlog=4 THEN Arreter 

OPEN “R“,1,Fichier$S,244 

FIELD 1,2 AS zNombre$,8 AS 2M 
otS,16 AS zNomS,16 AS zTel$ 
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GET 1,1 

Mot$=zMotSs 

NomServeur$=zNom$s 

TelephoneServeur$=zTel$s 

tlMot: 

IF RIGHTS(MotS$S,1)=" " st M 
ot$=LEFTS (MotS$, LEN (MotS$})-1) 
:GOTO tliMot 

tiNom: 

IF RIGHTS$S(NomServeur$s,1)=" " 
THEN NomServeur$=LEFTS {Noms 
erveurs$,LEN(NomServeur$)-1}: 
GOTO t1Nom 

tiTel: 

IF RIGATS(TelephoneServeurs$,l 
}=" “ THEN TelephoneServeur$ 
=LEFTS$S (TelephoneServeurs$, LE 
N(TelephoneServeur$) -1} :GOT 
O C1Tel 


Sel 


SN Tenp !=TIMER 


WHILE TIMER<Temp!+2 
WEND 


‘+ Seconde page ? 


ChaineEtat$="Appel reçu, atten 
te de connexion.‘ 

GOSUB spAfficheEtat 

EnxR! Dr 

IF NOT Dr THEN Deconnexion 

NombreConnexions=NombreConnexi 
ons+1l 

NombreConnexions$=STR$(NombreC 
onnexions) 

ChaineEtat$="Connexion ok, ser 
veur actif fconnexion n°"+No 
mbreConnexionsS+")" 

GOSUB spAfficheEtat 


‘-. Première page * 
Deplace! 1,13 


Afficher! " /-==-\ === /- 
ere AL 

Afficher! "/ 7 \{ 
HAE EAN 


Afficher! “{ /--\ ] { /-\ } { 
USA, NI QT: 

Afficher! “f { } ] { 
PONIMAN INA \ 

Afficher! "{ { T1 
AIS OIT EE \ \ig 


LE EX 





AGCHCNE RITES AC 
PES LR 

Afficher! "{ AN 7 € 
JO Pet mi] 62 PAIE 

AfficheR!t "{ \ 7 \ D \| 
DONNE \ 7 

AfFiCheR IUT 

AfficheR! “f }" 

AfficheR! "{ }" 

Affiche! "\_/ "” 

ParamT! 1,2,0,0,0,0 

Affiche! “- La revue des Apple 

Haut! 12 

Bas! 4 


Deplace! 9,17 

ParanT! 0,2,0,0,0,0 

Affiche! "_"+CHRS (18) +CHR$ (86 
) 

Deplace! 12,18 





ParamT! 0,3,0,0,0,0 


Affiche! " "+CHR$(18)+CHR$ (92 


) 


Page2!: 

VidEcran! 

Cadre" 1,1,40, 7,2,0,5A0 

Cadñe!"1,;8,40,20,2%0,5,0 

Deplace! 5,3 

Affiche! "Vous êtes bien au "+ 
TelephoneServeurs$ 

Deplace! 5,5 

Mode! 2 

AfficheR! NomServeur$ 

Deplace! 4,10 

Affiche! "Votre interlocuteur 
est un” 

Deplace! 4,12 

Affiche! "ordinateur Apple pré 
t à enregistrer" 

Deplace! 4,14 

Affiche! “vos messages et conf 
idences..." 

Deplace! 13,18 


Affiche! "Accès au menu : 
Inverse! 
Affiche! " Suite "M 


Deplace! 18,19 
Affiche! "Renoncer : 
Inverse! 

Affiche! “ Connexion 


" 


BouclePage2: 

AcceptF! Dr 

ON Dr+l GOTO DeconnexionF, Som 
maire, Inactl,Page2, Inactl,ln 
actl, Sommaire, Sommaire,Decon 
nexion, Inact1 

Inectl: 

GOSUB spTouchelnactive 

GOTO BouclePage2 


‘+ Sommaire * 


Sommaire: 

VidEcran! 

Vidkect ! 1,1,40,6,4 

Deplace! 9,4 

ParamT! 1,7,4,0,0,0 

Affiche! ‘ Répondeur télématig 

ue" 

GOSUB spCadresChoix 

ParamT! 0,7,0,0,0,0 

Deplace! 8,11 

Affiche! "Laisser un message“ 

Deplace! 8,14 

Affiche! “Fonctions de service 
" 

Deplace! 8,17 

Affiche! “Quitter ce répondeur 
mn 

Deplace! 15,22 

Affiche! "Votre choix : Ho 

Inverse! 
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Affiche! “ Envoi " 


BoucleChoix: 

Chaine$="" 

Accept! 29,22,0,*"",1,Chaines$,D 
Je 

ON Dr+1 GOTO DeconnexionF,Cho 
ixImp2,Page2, Sommaire, Guidel 
mp2,BoucleChoix,BoucleChoix, 
ChoixImp2, Deconnexion 

Guidelmp2: 

GOSUB Guidelndisponible 

GOTO BoucleChoix 

ChoixImp2? : 

IF Chaine$<"l" OR Chaine$>"3" 
THEN GOSUB ChoixImpossible 
:GOTO BoucleChoix 

ON VAL({Chaine$) GOTO EnrMess 
age, Service, Quitte 


‘. Enregistrement du message 


EnrMessage: 

VidEcran! 

Deplace! 3,2 

Inverse! 

ParamT! 0,7,4,0,0,0 

Affiche! “ Enregistrement de 


votre message 
Cadre !.2,1,38,3, 0,10; 20 
Deplace! 1,5 
Affiche! “Votre non : 
SBÉSE oc Fe 
Ligne! 
Affiche! “i" 
Jnverse! 
Affiche! " Suite “ 
Deplace! 1,6 
Affiche! " 


ss. 


Prénom # ess. 
Ligne! 

Affiche! “"#" 

Inverse! 

Affiche! " Suite " 
Deplace! 1,7 

Affiche! “Téléphone # ....s.e.s 
Ligne! 

Affiche! “"" 

Inverse! 

AfficheR! " Suite " 
Chariot! 

Normal! 

Mode! 2 

Affiche! * Message 
FOR Index=11 TO 17 
Deplace! 1,1Index 


AÉTICheN Eee. HeSODUOG ADD 
Boon CARE 

Ligne! 

Affiche! 1" 

Inverse! 

Affiche! “ Suite “ 

NEXT 


Deplace! 1,20 
Affiche! “Pour valider votre m 
essage :"* 
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Ligne! 

Affiche! "" 

Inverse! 

Affiche! “ Envoi e 

Deplace! 13,21 

Affiche! “Pour l'annuler : 

Ligne! 

Affiche! "" 

Inverse! 

Affiche! " Sommaire " 

Deplace! 13,5 

AfficheR! Nom$ 

Deplace! 13,6 

AfficheR! Prenom$ 

Deplace! 13,7 

AfficheR! Telephone$ 

FOR Index=11 TO 17 

Deplace! 1, Index 

AfficheR! Message$ (Index-11)} 

NEXT 

ON Pointeur GOTO SaisieNom,Sà 
isiePrenom,SaisieTelephone, S 
aisieMessage 


SaisieNom: 

Pointeur=1 

Accept! 13,5,0,"",16, Noms, Dr 

ON Dr+l GOTO DeconnexionF,ErsS 
aisieNom, Inact3,EnrMessage,G 
uideImp3, Inact3,Sommaire,Ers 
aisieNom,Deconnexion 

Inact3: 

GOSUB spTouchelnactive 

GOTO SaisieNom 

GuideImp3: 

GOSUB Guideïndisponible 

GOTO SaisieNom 

ErSaisieNom: 

IF Nom$="" THEN Alerte! “Nom 
indispensable, ,.",1:GOTO Sai 
sieNon 

IF Dr=1 GOTO Validation 

SaisiePrenom: 

Pointeur=2 

Accept! 13,6,0,““,16,Prenom$,D 
re 

ON Dr+1 GOTO DeconnexionF, Val 
idation,SaisieNom, EnrMessage 
.Guidelmp4, Inact4, Sommaire,S 
aisieTelephone,Deconnexion 


Inact4: 

GOSUB spToucheInactive 

GOTO SaisiePrenom 

GuideImp4: 

GOSUB GuideIlndisponible 

GOTO SaisiePrenom 

SaisieTelephone: 

Pointeur=3 

Accept! 13,7,0,"",16, Telephone 
$,Dr 

ON Dr+1 GOTO DeconnexionF, Val 
idation, SaisiePrenom, EnrMess 
age,GuideImp5, InactS,Sommair 
e,SaisieMessage, Deconnexion 

Inacts: 


GOSUB spToucheïlnactive 

GOTO SaisieTelephone 

GuideImp5: 

GOSUB Guidelndisponible 

GOTO SaisieTelephone 

SaisieMessage: 

LigneMessage=0 

SaisieMessage2: 

NumLigne=LigneMessage+11 

Pointeur=4 

Deplace! 1,NumLigne 

Accept! 1,NumLigne, 0, "'',28,Mes 
sage$ (LigneMessage) ,Dr 

ON Dr+1 GOTO DeconnexionF, Val 
idation,SaisieMessage3,EnrMe 
ssage,Guidelmp6, Inact6,Somma 
ire, SaisieMessage4,Deconnexi 
on 

GuideI mp6: 

GOSUB Guidelndisponible 

GOTO SaisieMessage? 

Tnact6: 

GOSUB spToucheïlnactive 

GOTO SaisieMessage2 

SaisieMessages: 

LigneMessage=LigneMessage+1 

IF LigneMessage=7 THEN Valida 
tion 

GOTO SaisieMessage2 


SaisieMessage3: 

LigneMessage=LigneMessage-1 

IF LigneMessage<>-1 THEN Sais 
ieMessage2 

LigneMessage=0:GOTO SaisieTele 
phone 


’* Écran de validation * 


Validation: 

VidEcran! 

Deplace! 1,3 

AfficheR! “Voici votre message 
tel qu'il sera“ 

AfficheR! “enregistré :" 

Deplace! 4,7 

Affiche! “ Nom : “+Nom$ 

Deplace! 4,8 

Affiche! “Prénom : “+Prenom$ 

Deplace! 4,9 

Affiche! "Téléph : “#Telephone 
$ 

FOR Index=0 TO 6 

Deplace! 6,11+Index 

AfficheR! MessageS$(Index) 

NEXT 

Deplace! 1,21 

Affiche! “Pour le valider .., 


Ligne! 
Affiche! “ " 
Inverse! 
AfficheR! ‘ 
Normal! 
Affiche! “Pour le modifier ... 


Envoi ” 


Ligne! 


Affiche! “#" r | 2} 

Inverse! à = 

AfficheR! “ Correction “ ES 

Normal! D 

Affiche! “Pour l'annuler “à 

Ligne! 

Affiche! “" 

Inverse! 

AfficheR! “ Annulation " 

Normal! 

AttenteValidätion: 

AcceptÆF! Dr 

ON Dr+1 GOTO DeconnexionF, Enr 
egistrement, EnrMessage, Valid 
ation, Guidelmp7,Sonmaire,Som 
maire, ChoixImp7,Deconnexion, 
EnrMessage 

ChoixImp?: 

Alerte! "Touche interdite“,0 

GOTO AttenteValidation 

GuideImp7: 

GOSUB Guidelndisponible 

GOTO AttenteValidation 


"+ Enregistrement #* 

Enregistrement : 

VidEcr an! 

Deplace! 6,12 

Affiche! “Enregistrement en co 
urs" 

FIELD 1,2 AS zNombre$, 8 AS zM 
ot$,16 AS zNom$,16 AS zTels 

GET 1,1 

NombreMessage=CVI (zNombre$) 

NombreMessage-NombreMessage+1 

LSET zNombre$=MKI$ (NombreMess 
age) 

PUT 1,1 

FIELD 1,16 AS uN$,16 AS uP$,1 
6 AS uT$,28 AS u1$5,28 AS u2 
$,28 AS u3$,28 AS u4$,28 AS 
uS$,28 AS u6$,28 AS u7$ 

LSET uN$=Nom$ 

LSET uP$=Prenoms 

LSET uT$=Telephones 

LSET u1$-Messages$ (0) 

LSET u2$=-Messages (1) 

LSET u3$=-Messages (2) 

LSET u4$=Messages (3) 

LSET u5$-Messages (4) 

LSET u6$=Messages (5) 

LSET u/7$-MessageS$S(6} 

PUT 1, NombreMessage+1 

FOR Index=0 TO 6 

Message$ (Index) =""" 

NEXT 

ls Dernier écran * 

VidEcran! 

Deplace! 6,12 

AfficheR! "Votre message est e 
nregistré..." 

Deplace! 11,14 

Affiche! "...faites " 

Inverse! 
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Affiche! ‘" Sommaire " Affiche! “ Sommaire " 

AcceptF! Dr AttenteMot: 

IF Dr-Faux THEN DeconnexionF MotPasses="" 

IF Dr=8 THEN Deconnexion Secret! 9,12,0,"Mot de passe : 
Pointeur=4:GOTO Sommaire “,7,MotPasseS,Dr 


‘* Fonctions de service * ON Dr:1 GOTO DeconnexionF,Att 
enteMot2,Sommaire, Service,Gu 


ideïmp8,Inact8,Sommaire,Atte 


Service: 
VidEcran! 
VidkRect! 1,1,40,6,4 
Deplace! 10,4 
ParamT! 1,7,4,0,0,0 GOSUEB Guidelndisponibie 
Affiche! “ Fonctions de servic GOTO AttenteMot 

e“ Inact8: 
ParamT! 0,7,0,0,0,0 GOSUB spToucheïnactive 
Deplace! 32,12 GOTO AttenteMot 


nteMot2,Deconnexion 
Guidelmp8: 


un 
«2 


Affiche! “+ " AttenteMot2: 

Inverse! IF MotPasse$-=Mot$S GOTO Attent 
Affiche! " Envoi “ TS eMot 3 

Deplace! 15,15 Essai=Essai+1 


" IF Essai=1 THEN Alerte! “Mot 
de passe erroné", 1:GOTO Atte 


Affiche! “Pour renoncer t: 
Inverse! 


Jusqu'à 72 points avec MacWrite 


Le nouveau ‘système’ (4.2) est arrivé avec les polices Laser Writer 
Courier, Helvetica et Times (aussi utilisables avec une 
ImageWriter) en tailles #27, 30, 36, 42, 54 et .72, 
Malheureusement, le menu ‘style’ de MacWrite n'autorise que les 
tailles allant de 9 à 24 points. C'est pourquoi, afin de détourner le 
problème, nous avons créé avec un éditeur de fichiers un 
document MacWrite baptisé “MacWrite 9 à 72” et contenant des 
caractères en tailles 9 à 72. Ces caractères utilisent la police Times 
mais, ici, peu importe la police, c'est la taille qui compte. Par 
exemple, si vous voulez insérer dans un document le titre “Section 
l” en Courier 72: 


+ fermez votre fichier ; 

+ ouvrez le fichier MacWrite 9 à 72; 

+ sélectionnez et copier 72 (ou seulement le 7 ou le 2) ; 
° fermez le fichier MacWrite 9 à 72; 

° ouvrez votre fichier ; 

- coller 72 à l'endroit où vous voulez placer votre titre ; 
° taper Section 1; 

° sélectionnez Section 1 ; 

+ _ changer la police (Courier dans le menu Caractères) ; 
+ supprimez 72. 

Le fichier Write 9 à 72 est sur la disquette d'accompagnement de 
ce numéro. 


9 10 12 


14 
18 24 27 30 


36 42 54 2 


nteMet 

IF Essai=2 THEN Alerte! “Erre 
ur, encore un Essai",1:GOTO 
AttenteMot 

VidEcran! 

Deplace! 10,12 

Affiche! “Désolé, déconnexion 
forcée..." 

GOTO Deconnexion 

AttenteMot3: 

Essai=0 

VidLigne! 12,0 

VidLigne! 15,0 

GOSUB spCadresChoix 

Deplace! 8,11 

Affiche! “Lire les messages" 

Deplace! 8,14 

Affiche! “Effacer le fichier" 

Deplace! 8,17 

Affiche! "Changer le mot de pa 
sse* 

Deplace! 15,22 


Affiche! “Votre choix : 0 
Inverse! 

Affiche! “ Envoi 
AttenteService: 

Chaine$="" 

AttenteService2: 

Chaine$=""" 


Accept! 29,22,0,"*,1,Chaines$,D 
EF 

ON Dr+1 GOTO DeconnexionF,Att 
enteService2, Service, Inact9, 
Guideïrmp3, Inact9, Sommaire,At 
tenteService3, Deconnexion 

TInact9: 

GOSUB spTouchelnactive 

GOTO AttenteService2 

Guidelmp9: 

GOSUB Guideïndisponible 

GOTO AttenteService2 

AttenteService3: 

IF ChaineS$S<"1l" OR Chaine$S>"3" 
THEN GOSUB ChoixImpossible: 
GO1O AttenteService 

ON VAL(ChaineS] GOTO Lecture 
Effacer,ChangeMot 


"+ Lecture du fichier «+ 


Lecture: 

FIELD 1,2 AS zNombreS,8 AS zM 
ot$,16 AS zNom$,16 AS zTel$ 

GET 1,1 

NombreMessage=CVI (zNombres$) 

IF NombreMessage=0 THEN Alert 
e! “Aucun message reçu“,1:GO 
TO AttenteService2 

NumMessage=-NombreMessage+1 

FIELD 1,16 AS uN$,16 AS upS$,1 
6 AS uTS,28 AS u1$,28 AS u2 
$,28 AS u3$,28 AS u4$,28 AS 

u5$,28 AS u6$,28 AS u7S 

Lecture3: 

VidEcr an! 

ParamT! 0,2,0,0,0,0 
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Affiche! "“_"#CHR$(18)+CHR$(64 
+39) 

Deplace! 2,3 

Mode! 1 

AfficheR! “Consultation des me 
ssages enregistrés" 

Mode! 0 

ParamT! 0,2,0,0,0,0 

Affiche! “+"+CHR$S(18)+CHRS$S(64 
439) 

Deplace! 9,5 

ParamT! 0,6,0,0,0,0 

Affiche! “Précédent :" 


Ligne! 

Affiche! ""” 

Inverse! 

Affiche! “ RETOUR #“ 


Deplace! 11,6 
ParamT! 0,6,0,0,0,0 
Affiche! “Suivant :" 


Ligne! 

Affiche! "" 

Inverse! 

Affiche! " SUITE Le 


Deplace! 15,7 

ParamT! 0,6, 0,0,0,0 

Affiche! “Fin :" 

Ligne! 

Affiche! "#" 

inverse! 

AfficheR! " SOMMAIRE " 

ParamT! 0,2,0,0,0,0 

AfficheR! “_"+CHR$(18) +CHR$(6 
4+39) 

Affiche! “ “+CHRS (18) +CHRS (64 
+39) 

Deplace! 1,12 

ParamT! 0,4,0,0,0,0 

Affiche! "‘‘"#CHRS(18}+CHRS$S(64 
+39) 

Deplace! 1,16 

ParamT! 0,4,0,0,0,0 

Affiche! “‘"?CHRS(18):CHRS$S(64 
+39) 

Deplace! 1,24 

ParamT! 0,2,0,0,0,0 


Affiche! “‘"+CHRS(18}+CHRS (64 
+39) 

Lecture2: 

GET 1,NumMessage 

Nom$=uNS$S 


Prenom$=uPs$ 
Telephone$=uT$ 
Message$ (0)=u1$ 
Message$ (1)=u2$ 
Message$(2)=u3$ 
MessageS$(3)=u4$ 
Messages (4)=u5$ 
MessageS$ (5)=u6$ 
MessageS$(6)=u7$ 
Deplace! 2,10 
Affiche! “ Message n°" + STRS( 
NumMessage-1) 
Depiace! 2,13 
Affiche! ‘‘‘> "“+Nom$ 


Deplace! 2,14 

Affiche! “‘‘> “+{Prenom$ 
Deplace! 2,15 

Affiche! “‘‘> “Telephones 
FOR Index=1i TO 7 

Deplace! 2,16+Index 


Affiche! “°° “MessageS (Index 
-1) 

NEXT 

AttenteLecture: 


AcceptF! Dr 

ON Dr+1 COTO DeconnexionF, Ina 
ct1i0, AttenteLecturer, Lecture 
3,Guidelmp10,Inact10,Sommair 
eBis,AttenteLectureS,Deconne 
xion, Inact10 

GuideIlmp10; 

GOSUB Guideïndisponible 

GOTO AttenteLecture 


SommaireBis: 

GOSUB VideVariables 

GOTO Sommaire 

Inact10: 

GOSUB spToucheïInactive 

GOTO AttenteLecture 

AttenteLectureR:'Retour 

NumMessage=NumMessage-1l 

IF NumMessage>l GOTO Lecture2 

NumMessage=2:Alerte! “C'est le 
premier message", 1: GOTO Att 
enteLecture 

AttenteLecturesS:'Suite 

NumMessage=NumMessage+1 

IF NumMessage<=NombreMessaget+l 
GOTO Lecture2 

NumMessage-NombreMessage+1:Ale 
rte! “C'est le dernier",1:GO 
TO AttenteLecture 


‘« Effacer le fichier + 


Effacer: 

VidEcran! 

VidRect! 1,1,40, 6, 4 

Deplace! 10,4 

ParamT! 1,7,4,0,0,0 

Affiche! “ Effacement fichier 
mn 

ParàamT! 0,7,0, 0,0, 0 

Deplace! 5,10 

AfficheR! “Cette commande supp 
rime l'ensemble” 

Deplace! 5,11 

AfficheR! “des messages stokés 


Deplace! 5,13 

AfficheR! "On ne peut annuler 
un effacement..." 

HS 

Deplace! 5,22 

Affiche! “Pour effacer :" 

Ligne! 

Affiche! 

JInverse ! 

Affiche! “ OUI + Envoi " 


Deplace! 5,23 
Affiche! “Pour renoncer :" 


Ligne! 


Inverse! 
Affiche! “ Sommaire Ce 
AttenteEfface: ” 


Reponse$="" 

Accept! 10,16,0,"“Ok pour tout 
effacer ? "“,3,Reponses$,Dr 
ON Dr+1l COTO DeconnexionF,Att 
enteEfface2,Inactil,Effacer, 
Guidelmp11l,Sommaire,Sommaire 

.Inactll,Deconnexion 

Inactll: 

GOSUB spToucheïInactive 

GOTO AttenteEfface 

GuideTmp11: 

GOSUB Guidelndisponible 

GOTO AttenteEfface 

AttenteEfface2: 

IF Reponse$<>"OUI" THEN Repon 
se$r"":Alerte! “Réponse inco 
rrecte",0:GOTO AttenteEfface 

FIELD#1,2 AS zNombreS$,8 AS 2M 
ot$,16 AS zNom$,16 AS zTel$ 

GET 1,1 

LSET zNombre$=MKIS$(0) 

PUT 1,1 


VidEcran! 

Deplace! 6,12 

AfficheR! "Le fichier a été ré 
Hnitiaiisé,, ." 

Deplace! 11,14 

Affiche! "...faites " 

Inverse! 

Affiche! “ Sommaire " 

AcceptF! Dr 

IF Dr=Faux THEN DeconnexionF 

IF Dr=8 THEN Deconnexion 

GOTO Sommaire 


‘« Changer le mot de passe * 

ChangeMot: 

VidEcran! 

VidRect ! 1,1,40,6,4 

Deplace! 14,4 

ParamT! 1,7,4,0,0,0 

Affiche! "Mot de passe" 

ParamT! 0,7,0,0,0,0 

Deplace! 1,23 

Affiche! “Pour renoncer, faite 

SR 

Inverse! 

Affiche! “ Sommaire ‘ 

Deplace! 1,11 

Affiche! "Taper le nouveau mot 
de passe + " 

Inverse! 

Affiche! " Envoi " 

Deplace! 1,16 

Affiche! “Täper le à nouveau p 
our contrôle" 

Cadre! 25,12,35,14,2,0,5,0 

Cadre! 25,17, 35,19,2/,0,5,0 


- «Al 
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VerifMot: 

Reponse2$="" 

Secret! 27,13,0,"",7,Reponse2S$S 
.Dr 

ON Dr+1 GOTO DeconnexionF, Ver 
ifMot2,Inact12,ChangeMot, Gui 
deImp12, Inact12,Sommaire, Ver 
ifMot2,Deconnexion 

JInact12: 

GOSUB spToucheïnactive 

GOTO VerifMot 

GuideImp12: 

GOSUB GuideIndisponible 

GOTO VerifMot 

VerifMot2: 

IF LEN (Reponse2$] < 4 THEN 
Alerte! “Minimum 4 caractère 
s"",1:GOTO VerifMot 

VerifMotBis: 

Reponse3$="" 

Secret! 27,18,0,"",7,Reponse3S$S 
Dr 

ON Dr+1 GOTO DeconnexionF, Ver 
ifMotBis2, Inact13,ChangeMot, 
Guidelmp13,Inact13,Sommaire, 
VerifMotBis2,Deconnexion 

Inact13: 

GOSUB spToucheInactive 

GOTO VerifMotBis 

GuideImp13: 

GOSUB Guideïlndisponible 

GOTO VerifMotBis 

VerifMotBis2: 

IF Reponse2$<>Reponse3$ THEN 
Alerte! “Les deux mots de pa 
sse diffèrent",1:GOTO VerifM 
ot 

Mot$=Reponse2$ 

FIELD 1,2 AS zNombreS,8 AS 2M 
ot$,16 AS zNom$,16 AS 2Tel$ 

GET 1,1 

LSET zMot$=Mots$S 

PUT' 1,1 


VidEcran! 

Deplace! 6,12 

AfficheR! "Le mot de passe à é 
té changé... " 

Deplace! 11,14 

Affiche! “...faites " 

Inverse! 

Affiche! “ Sommaire " 

AcceptF! Dr 

IF Dr=Faux THEN DeconnexionF 

IF Dr=8 THEN Deconnexion 

GOTO Sommaire 


'e sous-programmes divers * 


spToucheïnactive: 

Alerte! "Touche inactive ici", 
Faux 

RETURN 

Guideïndisponible: 

Alerte! “Guide indisponibie“,F 
aux 

RETURN 





spCadresChoix: 


Cadre! 4,10,6,12,2,0,5,0 | ] 
Affiche! "1" Les 


Cadre! 4,13,6,15,2,0,5, CON 


Affiche! ‘“2" D 
Cadre! 4,16, 6,18,2,0,5,0 
Affiche! “3" 

RETURN 

ChoixImpossible: 

Alerte! “Choix impossible",l 
RETURN 


spAfficheEtat: 

PRINT ChaineEtatsS 

PRINT 

RETURN 

OuvreFichier: 

Fichier$=FILES$(1,"PRép") 

IF LEN(Fichier$S) THEN Dr=-Vra 
i ELSE Dr=Faux 


RETURN 
ArretServeur: 
DrArret=Vrai 
RETURN 
VideVariables: 
Essai=0 
Pointeur=0 
Nom$="""" 
Prenom$="" 
Telephone$s="" 


FOR Index=0 TO 6 
Mes sage$ (Index) ="" 
NEXT 

RETURN 

Souris: 

Appel! Dr 

RETURN 


‘« Fin et déconnexion * 


Quitte: 

VidEcran! 

Deplace! 10,12 

Affiche! “Au revoir..," 


GOTO Deconnexion 


DeconnexionF: 

VidEcran! 

Deplace! 3,12 

Flash! 

Affiche! “Minitel inactif depu 
is 2 minutes," 

Deplace! 9,14 

Flash! 

Affiche! "Déconnexion forcée." 


Deconnexion: 

DeCnx ! 

CLOSE 

RESET 

GOTO RepriseAttente 


Erreur: 

RESUME Erreur? 

Erreur2: 

VidEcran! 

Affiche! “Désolé, problème ser 
veur” 

GOTO Deconnexion 





"e Ouverture d'un nouveau fich 
ier « 

NouveauFichier: 

DrInverse=Faux 

WINDOW 2,'""",(116,44)-(379,275 
Je 2 

TEXTFONT O:TEXTSIZE 12 

PENPAT VARPTR(Gris(0)} 

MOVETO 8,120 

LINETO 255,120 

MOVETO 8,200 

LINETO 255,200 

PENNORMAL 

MOVETO 16,16 

PRINT “Mot de passe : de 4 à 
7 caractères" 

MOVETO 16, 32 

PRINT “(A-> Zet © -> 9)," 

MOVETO 16,56 

PRINT “Nom : jusqu'à 16 carac 
tères” 

MOVETO 16, 72 

PRINT “affichables par tous 1 
es Minitel." 

MOVETO 16,96 

PRINT “Téléphone : jusqu'à 16 

caractères" 

MOVETO 16,112 

PRINT “affichables par tous 1 
es Minitel." 

MOVETO 56,141 

PRINT "Mot de passe" 

MOVETO 16,165 

PRINT "Nom" 

MOVETC 16,189 


PRINT "Tél." 

EDIT FIELD 1,"", (160,129)-(2 
48,144) 

EDIT FIELD 2, (54,153) =(24 
8,168) 

EDIT  ETELD, 3, ""t, (54,177) =(24 
8,192) 

EDIT FIELD 1 

NumEdit=1 

BUTTON 1,1, "Annuler", (16,208) 
—(128,224) 

BUTTON 2,1,‘'@K", (136,208) -(24 
8,224) 


ON DIALOG GOSUB DialogueNou 
veau:DIALOG ON 
DrSortie=Faux 


BoucleD: 

IF DrSortie THEN SortieNouvea 
u 

GOTO BoucleD 


SortieNouveau: 

DIALOG OFF 

WINDOW CLOSE 2 

IF NOT Dr THEN RETURN 

Fichier$=FILES$S(0,"Nom du fich 
ier serveur :") 

IF LEN(FichiersS] THEN Dr=-Vra 
i ELSE Dr-Faux :RETURN 

OPEN"R",1,Fichiers$,244 
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FIELD#1,2 AS zNombre$,8 AS zM 
ot$,16 AS zNom$,16 AS zTel$ 

LSET 2Nombre$=MKIS$ (0) 

LSET zMot$=Mots$ 

LSET zNom$=NomServeur$s 

LSET zTel$=-TelephoneServeur$ 


PUT 1,1 

CLOSE 

NAME Fichier$ AS Fichier$, “PR 
ép" 

RETURN 

DialogueNouveau: 

DIALOG OFF 

Dia10=DIALOG(G) 

ON Diai0 GOSUB BoutonD, EditD, 
RienD, RienD,RienD,ReturnD,Re 
turnD 

DIALOG ON 

RETURN 


BoutonD: 

IF DrIinverse THEN GOSUB Sign 
ale:DrInverse=Faux 

Dia11-DIALOG{(1) 

IF Dial1=1 THEN Dr=-Faux:DrSor 
tie=Vrai:RETURN 

Mot$=EDITS (1) 

NomServeur$=EDITS(2) 

TelephoneServeur$=EDITS (3) 

LMot=LEN(Mot$) 

IF LMot<4 OR LMot>}? THEN BEE 
P:DrInverse=1:GOSUB Signale 
:EDIT FIELD 1,Mot$, (160,12 
9)-(248,144) :DrSortie=Faux:R 
ETURN 

LNom=LEN{NomServeur$) 

IF LNom<1i OR LNom>16 THEN BE 
EP:DrInverse=2:GOSUB Signal 
e:EDIT FIELD 2, NomServeur$ 
, (54,153) -(248,168) :DrSortie 
=Faux:RETURN 

LTel=LEN(TelephoneServeurs$) 

IF LTel<1l OR Liel>16 THEN BE 
EP:DrInverse-3:GCOSUB Signal 
e:EDIT FIELD 3,TelephoneSe 
rveur$, (54,177)-(248,192):Dr 
Sortie=Faux:RETURN 

DrErreur=Faux 

FOR Index=1 TO LMot 

C$=MIDS (Mot$,Index, 1) 

IF (C$>"/" AND C$<":") OR (CS$ 
>"€" AND C$<"]") THEN testO 
K 

DrErreur=Vrai 


testOK: 

NEXT 

IF DrErreur THEN BEEP:Drinve 
rse=l:GOSUB Signale:EDIT F 
IELD 1,Mot$, (160,129}-(248,1 
44) :DrSortie=-Faux:RETURN 

DrSortie=Vrai:Dr-Vrai 

RETURN 

EditD: 

IF DrInverse THEN GOSUB Sign 
ale:DrIinverse=Faux 


NumEdit=DIALOG {2} 
EDIT FIELD NumEdit 
RETURN 


su 
ST DE à 


RETURN @] 


Bloque: 

RETURN 

ReturnD: 

IF DrinvVerse THEN GOSUB Sign 
ale:DrInverse=Faux 

NumEdit=NumEdit+1 

IF NumEdit=4 THEN NumEdit=1 

EDIT FIELD NumEdit 

RETURN 

Signale: 

Rect (top) =4+(Drinverse-1})*40 

Rect (left)=8 

Rect (bottom) =36+(DrInverse-1) * 
40 

Rect (right)=255 

INVERTROUNDRECT VARPTR(Rec 
t{top)),4,4 

RETURN 

‘* Lecture des fiches sur le M 
acintosh + 

Lire: 

Fichier$=FILESS{1,"PRép") 

IF Fichier$="" THEN RETURN 

MENU 1,1,0 

MENU 1,2,0 

MENU 1,3,0 

OPEN “R",l,Fichier$,244 

FIELD 1,2 AS zNombre$, 8 AS zM 
ot$,16 AS zNom$,16 AS zTel$ 

GET 1,1 

NombreMessage=CVI (zNombre$}) 

IF NombreMessage=0 THEN CLOS 
E:GOSUB DialMessage0:GOTO 
RetourLire 

GOSUB DialAf fiche:CLOSE :GOTO 
RetourLire 

RetourLire: 

MENU 1, 1,1 

MENU 1,2,1 

MENU 1,3,1 

RETURN 

‘+ Dialogue pas de message ? 

DialMessage0: 

WINDOW 2,"", (100,120) -(411,19 
1222 

TEXTFONT C:TEXTSIZE 12 

BEEFP 

MOVETO 16,24 

PRINT "Ce fichier ne contient 
pas de message." 

BUTTON 1,1,"OK", (192,40) -(296 
, 56) 

Rect (top) =36 

Rect (left}=188 

Rect (bottom) =60 

Rect (right) =300 

PENSIZE 3,3 

FRAMEROUNDRECT VARPTR(Rect 
{tep)),12,12 


PENNORMAL 

Diog=-Faux 

WHILE Dlog<>1 AND Dlog<>6 
D1iog=DIALOG(0} 

WEND 

WINDOW CLOSE 2 

RETURN 


‘+ Dislogue message enregistré 
= 

DialAffiche: 

WINDOW 2,''"*, (160, 60)-(351,283 
),2 

TEXTFONT O0:TEXTSIZE 12 

BUTTON 1,1, "Précédent", (16,16 
8) - (88,184) 

IF NombreMessage=1 THEN BUTT 
ON 1,0 

BUTTON 2,0," Suivant", (104,168 
)-(176,184) 

BUTTON 3,1,"Vider",(16,200)-( 
56,216) 

BUTTON 4,1, "Annuler", (72,200} 
—(176,216}) 

TEXTFONT 4:TEXTSIZE 9:TEXT 
MODE O0 

xNumMessage$="" 

xNom$="" 

XPrenom$="" 

xTelephone$s="" 

FOR Index=0 TO 6 

xLigneMessages$ (Index) ="" 

NEXT 

GOSUB MaJ 

NumMessage=NombreMessage+1 

NombreMessage$=S1TRS$ (NombreMess 
age} 

IF LEFTS{(NombreMessages$, 1)=" 
“ THEN NombreMessage$=RIGHT 
$ (NombreMessage$, LEN (NombreM 
essage$) -1) 

FIELD 1,16 AS uN$,16 AS uP$, 1 
6 AS UT$S,28 AS U1$,28 AS u2 
$,28 AS u3$,28 AS u4$,28 AS 

u5$,28 AS u6$,28 AS u7$ 

LectureMac: 

GET 1, NumMessage 

xNom$=uNS$S 

xPrenom$=uP$ 

xTelephone$=uTS$ 

xLigneMessageS$(0) =u1$ 

xLigneMessageS$(1)=u2$ 
xLigneMessages$ (2) =u3$ 
xLigneMessage$ (3)=u4$ 
xLigneMessageS$(4)=u5$ 
xLigneMessage$(5)=u6$ 
xLigneMessage$(6)=u7$ 
xNumMessage$="Message"+STRS (Nu 
mMessage-1)+"/"+NombreMessag 
es 

GOSUB MaJBis 

BDia125: 

Dlog=Faux 

WHILE Dlog<>l AND Dlog<>s5 

Diog=DIALOG(0) 
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WEND 

IF Diog=5 THEN GOSUB MaJ:GO 
TO BDia125 

Dlog=DIALOG({1)} 

ON Dlog GOTO Precedent, Suivan 
t, Vider, Annuler 


Precedent : 

IF NumMessage=2 THEN BDia125 

NumMessage=-NumMessage-1 

IF NumMessage=2 THEN IF BUTT 
ON(1) THEN BUTTON 1,0 

IF NumMessage<NombreMessage+i 
THEN IF BUTTON(2)=0 THEN 
BUTTON 2,1 

GOTO LectureMac 

Suivant: 

IF NumMessage=NombreMessage+l 
THEN BDia125 

NumMessage=NumMessage+l 

IF NumMessage=NombreMessage#1 
THEN IF BUTTON(2) THEN B 
UTTON 2,0 

IF NumMessage>2 THEN IF BUTT 
ON(1}=0 THEN BUTTON 1,1 

GOTO LectureMac 

Vider: 

GOSUB Confirmation 

IF NOT Dr THEN LectureMac 

Dr=Faux 

Annuler: 

WINDONW CLOSE 2 

RETURN 


MaJ: 

PENPAT VARPTR{Gris(0)) 

MOVETO 8,24 

LINETO 184,24 

MOVETO 8, 72 

LINETO 184, 72 

MOVETO 8,160 

LINETO 184,160 

MOVETO 8,192 

LINETO 184,192 

MaÿJBis: 

MOVETO 12,16 

PRINT xNumMessages$ 

MOVETO 12,40 

PRINT xNom$ 

MOVETO 12,51 

PRINT xPrenoms$ 

MOVETO 12, 62 

PRINT xTelephones$ 

FOR Index=0 TO 6 

MOVETO 12, 88+11*Index 

PRINT xLigneMessageS (Index) 

NEXT 

RETURN 

'e Dialogue confirmation * 

Confirmation: 

WINDOW 1,"",(100,120)-(411,19 
1#76)7-2 

TEXTFONT O:TEXTSIZE 12 

C$=Fichier$ 

BoucleConfirm: 

DP=INSTR(CS, “:") 


IF DP THEN C$=RIGHTS/{CS$S,LEN 
(CS) -DP) :GOTO BoucleConfirm 

BEEP 

MOVETO 16, 24 

PRINT “Voulez-vous effacer le 
contenu du fichier" 

MOVETO 16,40 


PRINT ve ES La mue 
BUTTON 1,1,"Annuler", (72,56)- 
(176, 72) 


BUTTON 2,1, “OK”, (192,56) -(296 
, 72) 

Rect (top) =52 

Rect (left}=68 

Rect {bottom) =76 

Rect (right])=180 

PENSIZE 3,3 

FRAMEROUNDRECT VARPTR(Rect 
{top})),12,12 

PENNORMAL 

Dlog-Faux 

WHILE Dlog<>1 AND Dlog<>6 

Dlog=DIALOG(0O) 

WEND 

IF Dlog=6 THEN Dr=Faux:GOTO 
SortieConfirm 

Diog=DIALOG(1) 

IF Dlog=1 THEN Dr=Faux:GOTO 
SortieConfirm 

FIELD#1,2 AS zNombreS$,8 AS 2M 
otS$,16 AS zNom$,16 AS zTel$ 

GET 1,1 

LSET zNombre$=-MKIS$(0) 

PUT 1,1 

CLOSE 

Dr=Vrai 

SortieConfirm: 

WINDOW CLOSE 1 

RETURN 

fe Initialisations * 

Initialisations: 

FOR Index=0 TO 3 

Gris (Index])=€A2AASS 

NEXT 

Faux=0 

Vrai=-] 

top=0 

left=1 

bottom=2 

right=3 

MENU 1,0,1,"Fichier" 

MENU 1,1,1, “Démarrer avec un f 
ichier existant." 

MENU 1,2,1,'"Démarrer avec un n 
ouveau fichier." 

MENU 1,3,1,"Lire les messages 
enregistrés..." 

MENU 1,4,0," " 

MENU 1,5,1, "Quitter" 

MENU 2,0,1,"Pom's" 

MENU 2,1,1,"© 1988 JLB, CP & 
Éditions MEV — 39.51.24.43" 

WINDOW CLOSE 1 

RETURN 
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l'ouverture de la nouvelle version 
de ce gestionnaire, le fichier se 
présente sous la forme d'un 
tableau : chaque colonne 
représente un champ, 
chaque ligne une fiche. 
Comme sur Works, on 
peut obtenir une 
présentation par 

fiches (l'ensemble 
d'une fiche apparaît à l'écran). Ces 
deux modes de présentation ne sont 
pas paramétrabies et la seule police 
disponible est le Monaco 9. Le 
manuel d'utilisation est sobre lui 
aussi: les cents premières pages 
survolent tous les aspects du logiciel, 
permettant un rapide apprentissage de 
base. Pour je reste il faudra se plonger 
dans les 208 autres pages, arides mais 
efficaces. 















Sobriété, tel semble être le mot clé 
pour définir l'aspect d'Over Vue 2.1. S'il 
fallait choisir un mot pour en décrire 
les fonctionnalités, efficacité serait 
sans doute le plus approprié. En effet, 
Over Vue 2.1 gère les fiches entièrement 
et uniquement en mémoire vive. Cela 
lui confère une rapidité 
impressionnante dans les opérations de 
tri Mais cette rapidité est utilisée 
égatement pour effectuer un contrôle 
précis de la saisie, au moyen de trois 
fonctions astucieuses : Non-Duplicatas 
permet d'avertir l'utilisateur lorsqu'une 
même valeur est introduite deux fois 
dans une colonne, Non-Unique avertit 
l'utilisateur s'il vient d'entrer une valeur 
qui n'existait pas dans la colonne. 
Enfin, Clairvoyance pennet, au cours de 
la saisie, de laisser Over Vue “deviner” 
ce que vous êtes en train de taper en 
fonction de ce qui existe déjà dans la 
colonne. Il termine ainsi la frappe pour 
vous. Parfois, si plusieurs valeurs ont 
le même début, deux ou trois lettres 
s'imposeront pour assurer cette 
“clairvoyance”. Une fois qu'Over Vue a 
affiché vidéo inverse la valeur qu'il a 
deviné, vous pouvez soit la valider soit 
poursuivre norinalement votre frappe 
pour un auxe mot. Ces trois fonctions 
se monkent extrêmement confortables 
et accélèrent réellement la saisie, sans 
ralentir sensiblement le fonction- 
nement du programme. 
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Mais, plus encore, il est possible, pour 
une colonne donnée, de définir un 
fonnat précis, par exemple la position 
des parenthèses et tirets s'il s'agit de 
noter des numéros de téléphones. Par la 
suite, il n'y aura plus qu'à saisir les 
chiffres. Bien sûr, si cette colonne a 
été cochée comme Non-Unique et 
numérique, on évitera de nombreuses 
erreurs de saisie. En cas de données 
fortement répétitives, comme jes jours 
de la semaine, on peut établir un 
masque de saisie à choix multiples 
grâce a la fonction Barre de Saisie. 


La gestion en mémoire vive offre 
d'autres atouts. Ainsi, Over Vue se passe 
très bien de la fonction Zndex, présente 
sur toutes les bases de données 
conventionnelles. À quoi bon définir 
des priorités dans les recherches 
puisque même les plus gros fichiers 
sont triés en quelques secondes. Il 
existe cependant un petit inconvénient 
à cela : les tris ne portant que sur une 
colonne à la fois, il faut ensuite 
effectuer un autre tri sur le critère 
suivant, le premier ordonnancement 
n'étant pas oublié. En plus du tri, 
Over Vue propose le regroupement des 
fiches, une fois àiées. Par exemple, 
chaque ville d'un fichier d'adresses crée 
un groupe qui sera séparé des autres par 
une fiche spéciale appelée sommaire. 
Ce sommaire pernet d'effectuer des 
calculs dans chaque groupe (moyenne, 
somme, mini, maxi, compteur..….), mais 
se comporte comme une fiche ordinaire 
pour les tris et sélection. Ces 
possibilités sont souvent offertes dans 
les autres logiciels avec le module 
“rapports”, rarement à l'écran. Les 
possibilités de recherche et de 
sélection sont tout à fait classiques et 
rien ne manque. 


Over Vue présente en outre deux 
caractéristiques qui le rapprochent du 
tableur un nombre important de 
fonctions de calcul et la possibilité de 
représenter les données sous forme de 
graphiques. On peut ainsi remplir une 
colonne d'une valeur fixe ou d'une série, 
ajouter les valeurs de deux colonnes 
dans une troisième, multiplier ce 
résultat par trois, le diviser par 2 et 
envoyer ie tout dans la colonne 
suivante. Le tout peut être assorti de 
fonctions logiques. Certes, il n'y a pas 
de fonctions mathématiques et 


financières, mais l'accent a été mis là 
où il le faut pour un fichier : l'alphabet. 
Une douzaine de fonctions sur les 
chaînes de caractères sont en effet 
disponibles (extraction, repérages de 
chiffres, conversion majuscule/ 
minuscule, rotation). Le module 
graphique est simple mais il est 
impossible d'imprimer un graphique à 
partir d'Over Vue, il faudra le transférer 
via l'album. 


On touche Ià un point crucial du 
logiciel. En effet, Over Vue n'utilise pas 
l'ImageWriter ni la Laser Writer en 
mode graphique. Il utilise le propre 
générateur de caractères de 
l'imprimante. Ainsi, Over Vue se limite 
aux seuls caractères romains sans 
italique ni gras. Les rapports imprimés 
permettent soit une simple copie de 
tableau (jusqu'à 200 caractères de large 
en ultra-condensé), soit du cousu-main. 
Dans ce cas, on se rapproche de 
l'emploi de masques des bases de 
données classiques : on crée des cases 
correspondantes aux colonnes choisies, 
on en détermine la longueur et la place 
sur le rapport, on ajoute du texte libre 
ça et 1, on peut dater... rien que de très 
classique. Les fiches de sommaire 
s'intercalent à loisir. Il est possible de 
mémoriser huit formats de rapport. 
Avec de l'habitude, les rapports 
d'Over Vue sont présentables, malgré 
leur limitation à un seul type de 
caractère. Notons qu'Over Vue peut 
imprimer sur quatre colonnes et accepte 
toutes les hauteurs de papier; c'est donc 
un précieux générateur d'étiquettes. 


La fusion de fichier est ce qui rend 
Over Vue relationnel. Les deux fichiers 
peuvent être juxtaposés, chacun gardant 
ses caractéristiques propres, ou 
superposés s'ils sont du même type. On 
peut aussi insérer un fichier entier au 
milieu d'un autre grâce à la fonction 
coller. Enfin la fonction Lier permet 
une réelle fusion relationnelle : on 
précise quelle est la colonne de chaque 
fichier qui contient les données de type 
commun, puis quel nom donner à la 
colonne nouvelle qui accueillera le 
résultat de la fusion. Ces opérations 
sont sans danger dans la mesure où les 
deux fichiers d'origine subsistent 
toujours. Le seul problème que l'on 
peut rencontrer ici est la place 
disponible en mémoire vive. 


Over Vue dispose en outre d’un éditeur 
de macros-commande très complet. 
Chaque fichier peut gérer jusqu'à vingt 
macros. Une fois écrites et titrées elles 
apparaissent dans le menu Do et 
peuvent être lancée par un raccourci 
clavier. La définition de ces macros ne 
s'opère pas par enregistrement d'une 
séquence de commandes mais par un 
éditeur de texte, ce qui rend leur 
réalisation plus difficile. Elles peuvent 
effectuer toutes les fonctions d'Over Vue 
sauf les entrées/sorties Finder, elles 
peuvent s'interrompre pour demander à 
l'utilisateur d'entrer une réponse. On 
dispose là d'un véritable langage de 
programmation. 


En ce qui concerne l'ouverture sur 
l'extérieur, Over Vue est plus doué pour 
l'Importation que pour l'Exportation. 
L'exportation n'est en effet possible 
que par l'album, le presse-papiers et 
l'écriture d'un rapport sur disque et non 
sur l'imprimante. Pour l'importation, 
les formats texte (avec choix de trois 


séparateurs virgule, tabulation et 
retour-chariot)}, Sylk et Dif sont 
acceptés. 


En définitive, Over Vue est une gestion 
de fichier originale et simple d'emploi. 
Elle est particulièrement efficace et 
puissante, grâce à la gestion en 
mémoire vive. C'est pour l'instant le 
seul programme à proposer des 
fonctions aussi étendues pour le 
contrôle de la saisie. Ses macros, en 
combinant des fonctions astucieuses 
permettent de récupérer des heures de 
saisie et d'en économiser autant. 
OverVue apparaît presque comme un 
logiciel intégré qui serait orienté vers 
la base de données (contrairement à 
Excel qui lui est orienté vers le 
tableur). Cependant deux points faibles 
viennent ternir le tableau : l'aspect 
trop spartiate de la présentation à 
l'écran et surtout à l'impression aïmsi 
que l'absence de fonction “Annuler”. 
Over Vue est remarquablement efficace 
pour les bases de données de taille 
moyenne ne nécessitant pas des 
rapports à la présentation 
irréprochable. Elle est agréable à 
utiliser mais donne un sentiment de 
frustration devant l'absence de certarnes 
fonctionnalités primordiales comme 
l'impression soignée. . 
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Nouvelles 
du front 


Il y a de l'angoisse dans l'air chez les 
proprétaires d'Apple // : l'abandon 
désormais officiel par Apple de la 
production du //e et du // signifie-t-il 
la condamnation de l'Apple//? 

Du point de vue d'Apple, les choses 
sont claires : Apple est une entreprise 
dont toute la force repose dans 
l'innovation (technologique et 
logicielle). Quelles que soient les 
réticences de chacun d'entre nous au 
changement, nous avons donné de 
l'argent à Apple, et cet argent est 
utilisé par lui pour rester à la têtc de 
l'innovation en matière d'informatique 
personnelle. Nul n'ignore que ni le 
Mac Il nile GS n'ont été précédés par 
une quelconque étude de marché, pas 
plus que l'Apple Ï de Wozniak ne 
l'avait été. Nous faisons de bons 
produits, et le marché suivra : c'est 
ainsi qu'Apple raisonne depuis 
Wozniak — avec quelques échecs 
(Apple II, Lisa) mais avec 
principalement, ma foi, pas mal de 
réussite. 

Il est clair que la technologie 8 bits 
seule est une technologie dépassée. Ne 
nous voilons pas la face : le point 
d'entrée dans la gamme Apple, le bas 
de gamme d'Apple, c'est le GS. 

Est-ce donc la fin de l'Appie // ? 
Évidemment pas. D'abord, parce qu'il 
y à trois millions d'Apple // installés 
dans le monde : c'est plus que toute 
autre machine. C'est un énorme 
marché. Ensuite parce que le GS est 
un Apple // à part entière. Le GS a été 
produit par Apple sur la demande des 
utilisateurs qui voulaient une machine 
à la fois moderne et compatible. Cette 
machine, j'en suis persuadé, a de 
gigantesques possibilités (avez-vous 
épluché le monitcur du GS ? Ses 
possibilités sonores ?). Les 
programmes, les cartes, les interfaces 
pour le GS commencent à foisonner. 
Le 65832 (processeur 32 bits 
compatible pattc-à-patte avec le 65816 
du GS)esten cours de production. Les 
accélérateurs GS vont bientôt sortir. 
Et ces machines 32 bits accélérécs 
continueront à faire tourner l'Integer 





Apple // for ever 





Basic et à répandre la “philosophie 
Wozniak”. Bref : Apple // for ever. 


D'autant que la technologie Apple 8 
bits n'est pas morte. Faire tourner 
AppleWorks avec un bureau de 1 
Méga suffit à 80% des besoins d'un 
utilisateur débutant. Simplement, 
l'Apple 8 bits passe quasiment dans le 
domaine public, je veux dire dans la 
production Taïwanaise à bas prix, 
rejoignant les compatibles IBM. Le 
successeur de l'Apple //c se trouve 
désormais dans les supermarchés des 
USA : un ordinateur compatible //e 
65C02, avec 1 Méga de Ram, souris, 
sortie RVB, drive 5,25' intégré, 
acceptant les disques 3,5’, avec pavé 
numérique, avec tous les interfaces du 
{{e plus l'interface parallèle et un port 
d'extension, muni d'un processeur à 
3,6 Mégaherz (plus rapide que le GS). 
C'est le LASER 128 EX de Video 
Technology, produit en Chine, 
vendu aux USA par Central Point 
Software (qui produit Copy ]{+ pour 
le // et le Mac). Son prix : 500 
dollars, soit moins de 3000 francs. À 
ce prix, on a désormais un Apple // 
presque comme on a le téléphone. 
Apple // for everyone. 

Si Apple abandonne Ic //c, il 
n'abandonne pas ses utilisateurs : il a 
créé aux États-Unis avec la 
coopérative A.P.P.L.E. une “Apple 
Programmers and Developers 
Association” (APDA) qui fournit à 
tous, et pas seulement aux 
développeurs patentés, les 
informations, documentations, outils 
de développement ctc., nécessaires 
pour programmer sur les machines 
Apple. Les plus grands développeurs 
en sont membres tout aussi bien que 
le bidouilleur de banlieue. Les outils 
sont vendus à prix coûtant, et bien 
entendu sans aucune garantie, 
puisqu'il s'agit parfois de versions 
préalables, de pre-Release, de 
documentations provisoires 
polycopiécs, qu'Apple diffuse dès qu'il 
le peut auprès de ceux qui en ont 
besoin. Cette politique d'ouverture 
maximale semblerait, à première vue, 
donner des armes à la concurrence : 
elle a, en fait, toujours fait le succès 
d'Apple. Apple France s'y met aussi : 
après le serveur Apple (en 36.14), 


Jean- Ÿ ves Bourdin 


voici D.D.A., Documentations 
Développeurs Apple, version 
française de l'APDA. C'est auprès 
d'elle que tout un chacun peut se 
procurer les documentations 
techniques sur le GS ou sur le Mac. 


Toujours plus : 
un IBM dans l'Apple ? 


Avec la carte PC Transporter 
d'Applied Engineering, le 
MS-Dos devient pour l'Apple // ce 
qu'était le CP/M auparavant : un 
deuxième système d'exploitation pour 
l'Apple. Cette carte n'est pas un 
émulateur, mais un véritable IBM 
dans l'Apple : elle a nécessité un 
énorme effort de développement et 
d'investissement. Son prix justifie 
une étude un peu serrée de ses 
performances. 

Tout d'abord, cn dehors de toute 
utilisation du MS-Dos, cette carte, qui 
entre dans n'importe quel slot sauf le 
slot 3 ou le slot auxiliaire, est à la 
fois une extension mémoire type 
Apple (768K0) et une carte contrôleur 
de drives universelle pour l'Apple : 
elle pilote aussi bien les lecteurs GS 
3,5 (mais pas les Unidisk //e et //c) 
que les drives 5,25' 40 pistes double 
face type IBM vendus par Applied 
Enginccring (elle formate les 
disquettes 5,25 en 360Ko sous 
ProDOS), et elle permet de chaïîner 
cinq lecteurs en tout. 

Bien entendu, c'est aussi un 
compatible PC : microprocesseur Nec 
V30 à 7,16 MHz (trois fois plus 
rapide que l'IBM), 640Ko de Ram 
possibles en mode IBM, tous les 
modes vidéo CGA sur votre moniteur 
Apple, coprocesseur arithmétique en 
option, bref on peut faire tourner sur 
l'Apple l'adaptation sous MS-Dos de 
Visicalc appelée Lotus 1-2-3. 

Les avantages principaux de cette carte 
sont bien entendu dans l'intégration 
qui permet d'utiliser tous les 
périphériques de l'Apple : carte 
horloge, imprimante, clavier du 
/le-IIGS (les touches de fonction IBM 
étant remplacées par des combinaisons 
avec les touches €}, souris, moniteur 
vidéo, son. Vous pouvez stocker des 
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données et programmes MS-Dos sur 
tout disque formaté en ProDOS 
(5,25', 3,5', disque dur, etc.). La carte 
permet même de lire et écrire des 
disquettes 3,5 formatées en MS-Dos 
avec un simple lecteur 3,5' Apple 
type IIGS, 


Mais. i y a ce que les publicités ne 
disent pas : la carte PC Transporter ne 
pennet pas de fonnater en MS-Dos les 
disquettes 3,5' avec un lecteur Apple 
3,5' ni de démarrer directement ces 
disquettes. Il vous faudra donc avec la 
carte le duo-disk 5,25" type IBM 
vendu par Applied Engineering pour 
démarrer le MS-Dos. Et il est 
indispensable d'avoir accès à un 
compatible IBM muni d'un lecteur 
3,5" pour formater en MS-Dos les 
disquettes 3,5. 

Faites les comptes : la carte avec 
640K0, plus le kit d'installation, plus 
le Duo-Disk 5,25, tout cela fait 1058 
dollars aux prix d'Applied Engineering 
pour mettre le MS-Dos dans le GS, 
Rajoutons le fait que la carte en action 
tire 600 mA, et 1075 mA avec le 
coprocesseur arithmétique, et il est 
pratiquement indispensable de changer 
l'alimentation du //e pour celle plus 
puissante (110 et 220 V) vendue 69 
dollars par Applied Engineering. C'est 
en fait le prix d'une configuration 
équivalente à base de 
compatible-lambda made in China 
vendu dans les supermarchés. 
L'avantage est évidemment de n'avoir 
qu'une seule machine sur son bureau, 
une seule imprimante, etc., et de 
pouvoir échanger les fichiers entre les 
systèmes d'exploitation. 


ou un Apple 
dans l'IBM ? 


Plutôt que de mettre à vos frais dans 
voire Apple l'ordinateur du patron, il 
serait peut-être malin de faire mettre à 
ses frais un Apple dans son IBM : la 
carte Trackstar 128 de 
Compatible Peripherals met un 
Ile 65C02 128K dans un IBM ou 
compatible. Elle utilise les drives 
5,25' IBM pour lire les disques Apple, 
y compris les disques protégés (sauf 
ceux qui utilisent les demi-pistes). 
Elle utilise [es périphériques de l'IBM 
pour l'Apple, sauf le joystick (port 
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pour joystick Apple sur la carte), elle 
permet les transferts de fichiers 
ProDOS/MS-Dos. Et elle ne coûte 
que 309 dollars. Mais ce n'est pas un 
GS, et vous n'aurez pas les caractères 
accentués français sur l'écran. 


OÙ une machine 
d'avenir ? 


À chacun donc de faire ses choix. Le 
mien est ni l'un ni l'autre : un 
ordinateur dans un autre est une 
machine bloquée, qui ne pourra plus 
évoluer, et aussi bien l'IBM PC que 
l'Apple //e sont des machines 
technologiquement dépassées, 
d'ailleurs abandonnées toutes deux par 
leurs constructeurs respectifs. Ce ne 
sont pas des investissements 
d'aujourd'hui. 

J'avoue également n'éprouver qu'une 
jouissance très modérée à la 
compilation en DBase III. Et plutôt 
que d'utiliser Lotus 1-2-3 ou Word 
Perfect sur IBM, essayez donc Vip 
Professional de Vip 
Technologies, parfait clone de 
Lotus 1-2-3, mais avec l'interface 
graphique-souris du GS, ou... Word 
Perfect de Word Perfect 
Corporation sur GS. Ces deux 
programmes existent d'ailleurs aussi 
pour //e-//c (Vip Professional 
nécessitant une extension mémoire 
type Ramworks ou Multiram). 
Peut-être la carte PC Transporter 
serait-elle un bon moyen de mettre à 
niveau un //e qui n'aurait que 128Ko 
et des lecteurs 5,25' : mais c'est le 
même prix qu'une unité centrale de 
GS. La seule machine qui peut 
concurrencer un GS, c'est le Mac. 
Bon, je sais, le patron... Eh bien, 
faîtes-lui faire un tour au Sicob ou à 
la prochaine Apple Expo. Une 
entreprise ne peut pas se permettre 
longtemps sans dommage économique 
ce qui peut au contraire être l'intérêt 
bien compris du particulier : utiliser 
une infornatique obsolète. 


Le mange-disques 


Depuis le temps qu'on l'attendait ! Ça 
y est, il est arrivé, il estlà : Merlin 
8/16 de Glen Bredon chez Roger 


Wagner Publications est sorti ! 
Enfin la possibilité de programmer en 
assembleur de façon pratique pour le 
GS, finie la galère d'APW/ORCA ! 
Pourquoi ne pas en parler dans la 
rubrique “16 bits” ? Mais parce qu'il 
marche aussi sur le //c et le //e : vous 
avez bien lu, non seulement le Merlin 
8, dernière version du Merlin-Pro sous 
Dos et ProDOS, mais également le 
Merlin 16 bits, tout cela marche sur 
tous les Apple // d'aujourd'hui. Bien 
entendu, il vous faut précisément un 
Apple //88 : microprocesseur 65802, 
lecteur 3.5, mémoire. Voir la rubrique 
“sous le capot”. 


Entre autres, cela signifie qu'il est 
sous ProDOS 8 et ne s'occupe pas 
plus qu'AppleWorks du graphisme 
GS. Faudrait-il en conclure que même 
Glen Bredon estime que le ProDOS 
16 n'est pas très au point, et que le 
graphisme GS ne fait que ralentir les 
choses dans les applications 
sérieuses ? Mais non voyons, 
puisque précisément il vous permet 
d'écrire quant à vous des applications 
sous ProDOS 16, des accessoires de 
bureau, de vous régaler avec les outils 
du GS. Un éditeur de liens plus rapide 
produisant du code relogeable, un 
éditeur plein écran, des bibliothèques 
de sous-routines, des bibliothèques de 
macros (incluant des macros d'accès 
aux outils GS), que nous faut-il de 
plus ? 


Eh bien, un assembleur et un éditeur 
de liens co-résidents en mémoire avec 
l'éditeur, qui relient et assemblent 
jusqu'à 12 000 lignes de code par 
minute, sans qu'il soit nécessaire de 
passer par des modules sépaiés (suivez 
mon regard...). Et aussi un Sourceror 
16 bits, ce magnitique désassembleur 
qui a autant fait pour l'Apple que le 
Locksmith (à ce propos : la dernière 
version du Locksmith, 6.0 
Révision C, d'Alpha Logic 
Business Systems, fonctionne sur 
le GS). Sans compter la compatibilité 
avec tous les sources Merlin 
existants, et la possibilité de charger 
et assembler les fichiers APW avec un 
minimum de travail d'édition. 


Voilà le genre d'outils qui remet les 
montres à l'heure et les choses à leur 
place : le langage privilégié de 
l'Apple //, c'est l'assembleur, n'en 














TARLOUIALASRRIUEN LAURE ULB LE ER EET: 


Lin IE RE LS 


IELIUE 





déplaise aux adeptes d'autres jargons. 
C'est lui qui a fait et qui fera les plus 
grands programmes et les plus grands 
succès de l'Apple //. Apple // for ever, 
cela passe par Merlin for ever. Avec 
Merlin 16, TML Pascal et TML 
Basic, l'avenir du GS est assuré. 


Documax, de Signum 
Microsystems, est exactement le 
genre de programmes qui me pousse à 
écrire dans ces colonnes. Un coût 
ridicule (25 dollars avec la 
documentation sur le disque), une 
interface utilisateur parfaite, 
implantable, pas de protection, des 
possibilités extraordinaires, et. 
personne ne le connaît ! Que fait-il ? 
D'abord, il compresse à 50% les 
fichiers textes, à 40% les fichiers 
traitement de texte et base de données 
d'AppleWorks, et les décompresse 
ensuite bien sûr. En quelques 
communications avec Inter Pom's, je 
le rembourse intégralement. Au lieu 
de copier un fichier pour le ranger, 
compressez-le : cela n'est pas plus 
long, et de toute façon Documax vous 
permet de lire ces fichiers et de 
travailler dessus. Étant sous ProDOS 
8, it tourne sur //e, //c, IIGS et accepte 
bien entendu tous les disques reconnus 
parProDOS. 


Ensuite, il permet de chercher une 
référence, un nom, un morceau de 
phrase, un numéro de téléphone, dans 
l'ensemble de tous les fichiers texte 
ou AppleWorks que vous lui indiquez, 
compressés ou non (bien entendu, il 
s'occupe lui-même des catalogues 
ProDOS : vous n'avez jamais à taper 
un nom de fichier), 1l vous crée si 
vous le voulez un fichier de références 
sur n'importe quel sujet avec nom de 
fichier, texte recherché avec son 
contexte, numéro de ligne. Vous 
faites ensuite de ce fichier une base de 
données, ou bien vous coupez et 
coller l'information dans d'autres 
fichiers. Il segmente et fusionne les 
fichiers à volonté. Il gère les 
catalogues ProDOS, y compris l'ordre 
des fichiers dans le catalogue. Il est 
sain de temps en temps de nous 
rappeler que l'informatique ne sert pas 
à cliquer des souris, mais à traiter et 
manipuler à notre guise l'inforination. 
Allez, chiche : trouvez le nom et le 
prix d'un programme qui en fasse 
autant sur une autre machine ! 


Sous le capot 


Pour un prix inférieur à celui d'un 
lecteur 3,5, vous pouvez aujourd'hui 
mettre un disque dur 20 Mégas dans 
votre Apple. Vous avez remarqué que 
les clones IBM sont munis de disques 
durs bon marché. Évidemment, un 
petit malin a réalisé une carte 
d'interface entre ces disques durs et 
l'Apple }f+, //e, IIGS. Il s'agit de la 
carte Megaboard de Perlin 
Electronics. La carte coûte 200 
dollars, et supporte ProDOS, DOS 
3.3, Pascal, CP/M. Pour 500 dollars 
(2750 F au cours d'aujourd'hui), vous 
avez la carte et un disque dur de 20 
Mégas. Reconnaissons cependant que 
la carte Speedisk, si elle ne fait qu'un 
Méga, est beaucoup plus rapide, 
silencieuse et sans doute durable 
(aucun élément mécanique). 


Savez-vous que vous pouvez pour 25 
dollars mettre un processeur 16 bits 
dans votre //e ou //c ? Il s'agit du 
microprocesseur 65802, vendu 
par Roger Wagner Publishing, 
et produit par le Western Design 
Center, concepteur du 65816, le 
microprocesseur du GS. Ce 
microprocesseur reconnaît toutes les 
instructions et tous les modes 
d'adressage du 65816, a les mêmes 
modes émulation et natif, mais bien 
entendu ne fait pas l'adressage 
mémoire sur 32 bits par page de 
64K0, et ne vous met pas un GS dans 
le //c. Il fait tourner les programmes 8 
bits existants, plus ceux spécialement 
écrits pour lui (un seul aujourd'hui : 
Merlin 8/16). Il suffit d'enlever le 
65C02 et de mettre à la place le 
65802. 


L'autre solution consiste à acheter une 
carte accélérateur Transwarp 
d'Applied Engineering pour le 
Ile, avec un 65802 intégré. Roger 
Wagner la vend pour 245 dollars, et 
votre //e tourne plus vite que le GS 
(si!). Évidemment, Zip-Chip (voir 
Pom's 33) est moins cher et ne prend 
aucun slot : mais ce n'est pas un 
65802, il ne fait pas tourner Merlin 
16. 


Toujours pour mettre votre //e ou //c 
à niveau, il faut étendre sa mémoire. 
Si vous avez un nouveau //c, 





poussez-le à un Méga (voir Pom's 
33). Si vous avez un ancien //, 
vérifiez qu'il a les Roms pour le 
lecteur 3,5’, sinon faites-le mettre à 
niveau par Apple. Pour l'étendre à un 
Méga, les seules solutions seront 
ensuite la carte Z-Ram d'Applied 
Engineering ou la carte Muitiram 
CX de Checkmate Technology 
(sur lesquelles vous pouvez ajouter 
une carte 65816 pour faire tourner 
Merlin 16). 

Si vous avez un //e, vous pouvez 
l'étendre avec une des cartes qui se 
mettent dans le slot auxiliaire 
(Ramworks d'Applied Engineering ou 
Multiram //e de Checkmate 
Technology). Ces cartes ont 
l'avantage de remplacer la carte 80 
colonnes, donc de ne pas prendre un 
slot de plus. Elles ont l'inconvénient 
d'être technologiquement dépassées et 
de ne pas être portables sur le GS. 

Le plus intéressant, ce sont sans doute 
les cartes au standard Apple 
(“Slinky”), qui se mettent dans 
n'importe quel slot du +, //e, IIGS 
(sauf le slot 3). Elles sont portables 
sur le GS, sont reconnues par 
AppleWorks pour y étendre son 
bureau. Choisissez entre la carte 
Apple (chère, mais Apple), la 
Ramfactor d'Applied 
Engineering qui est la meilleure, et 
la carte Sprintdisk d'AST qu'on 
trouve à des prix bradés en ce moment 
(179 dollars par exemple avec un 
Méga installé chez Microtech 
Consulting Company). 


L'autre complément d'un Apple // 
pour le mettre à niveau, c'est le 
lecteur 3,5". Le //c est normalement 
muni de cette capacité. Pour le //e, il 
faut une carte d'interface. Apple nous 
propose sa carte pour l'Unidisk 3,5’. 
Mais ce lecteur étant assez cher, on 
peut lui préférer la carte Universal 
Disk Controller de Central 
Point Software pour ][+, //e, 1IGS. 
Cette carte a l'avantage d'accepter 
aussi bien les lecteurs 5,25' Apple ou 
compatibles, que les Unidisks 3,5' 
d'Apple, que les lecteurs 3,5' 800Ko 
compatibles Mac, qui sont très bon 
marché, que les lecteurs 3,5’ simple 
face 400Ko des vieux Mac, qu'il faut 
laisser aux dinosaures. Pour 261 
dollars (plus le port) chez Triad 
Software, mon fournisseur favori, 
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vous aurez une carte et un drive 
800Ko qui lira les disquettes GS sans 
problème, fera tourner Merlin 16 et 
rentrera AppleWorks, les accessoires 
Pinpoint et les applications TimeOut 
sur la même disquette, et démarrera 
automatiquement sur un //e 65C02. 
Cette carte a cependant quelques 
inconvénients : d'abord, même si eile 
peut théoriquement rentrer dans tous 
les slots sauf le slot 3 du //e, elle 
déborde beaucoup à droite. En 
conséquence, elle est en fait 
pratiquement réservée au slot 2 du //e 
et au slot 7, ce qui marche 
impeccablement sous ProDOS, mais 
pas sous Pascal. Ensuite, elle accepte 
les drives Apple 3,5' du GS, mais 
n'obéit pas à l'éjection manuelle (ce 
qui n'est pas grave : c'est si facile par 
programme). Enfin, elle ne reconnaît 
pas les disquettes protégées du GS 
(raison de plus pour ne jamars utiliser 
un programme protégé sur GS). 
Ajoutons que comme les drives 
800K0 sont pilotés par la carte et pas 
par l'unité centrale, elle n'accepte pas 
les programmes qui, comme 
Diversi-Cache, modifient les routines 
de lecture-écriture. Bill Basham a 
découvert pas mal de bugs dans cette 
carte, mais ils ne vont jamais jusqu'à 
la perte d'un fichier en mémoire ou la 
ruine d'une disquette. C'est donc 
malgré tout la solution de loin la plus 
économique pour tout Apple I 
démuni de lecteur 3,5". 


Voilà donc votre //e ou //e enfin à 
niveau, vous avez un “Apple // 88”. 
Ceci dit, faites vos comptes : une 
carte accélérateur, plus un 65802, plus 
une interface pour lecteur 3,5', plus 
une carte mémoire de 1 Méga, c'est 
vrai, Ça ronfle, et c'est au point. Mais 
c'est très en-dessous d'un GS, et ça 
n'est pas un GS, pour un prix qui lui 
est bien voisin ! 


Patchworks 


Voici comment raccourcir le temps de 
chargement d'AppleWorks 1.4 pour 
ceux qui le chargent depuis un disque 
3.5, un dur, ou un disque Ram, et/ou 
qui ont une horloge dans l'Apple (GS 
et autres) : 


UNLOCK APLWORKS.SYSTEM.I 
BLOAD APLWORKS.SYSTEM, A$2000, 


TSYS.I 
POKE 14477,44.) (Plus de «Pressez 
une touche pour continuer») 
POKE 14157,208 : POKE 14158, 
19.1 (Ne demande plus la date) 
BSAVE APLWORKS.SYSTEM, A$2000, 
T$FF.| 


Le patch suivant permet aux heureux 

propriétaires d'un GS et d'une carte 

Ram 1 Méga type Apple “slinky” 

(cartes Apple, Ramfactor, AST 

Sprintdisk, etc.) de faire croire à 

AppleWorks 1.4 qu'il est sur un //eet 

non sur un GS, le faisant ainsi se 

charger et mettre son bureau dans cette 

carte, en n'occupant que le Bank 0 de 

la Ram GS. 

UNLOCK APLWORKS . SYSTEM. 

BLOAD APLWORKS.SYSTEM, A$2000, 
TSFFJ 

POKE 13609, 44.) 

BSAVE APLWORKS.SYSTEM, A$2000, 
T255J 


Regardez à cette occasion le code que 
vous changez, et vous verrez 
comment AppleWorks s'y prend pour 
reconnaître qu'il est sur un GS. 

Voici eomment (Merci Dominique 
Ottello) permettre à AppleWriter 
ProDOS (version française) de 
marcher avec le port imprimante 
intégré du GS en court-circuitant sa 
routine d'initialisation du port série. 
C'est donc à vous qu'il appartient de 
configurer ce port en passant par le 
tableau de bord (G-control-esc). Pour 
cela, il faut d'abord avoir remplacé le 
ProDOS de la disquette par un 
ProDOS 8 plus récent qui autorise les 
interruptions. 


PREFIX/AW.i 
BLOADAWD.SYS,T$C,A$2000.1 
CALL-151.1) 

4D98: 60.1 

4F8A:10.1) 

4F91:134J 

BSAVE AWD.SYS,T$OC,A$2000.1 


Encore une partie 
et j'éteins 


Garder un vieux ][+ avec un joystick 
pour les jeux des enfants n'est plus un 
bon calcul : les grands du jeu sur 
Apple (Broderbund, Epyx) sortent 


maintenant systématiquement de 

magnifiques jeux d'action (arcade et 

simulation), de superbes animations 
en Double Haute Résolution. Après 

Air Heart de Broderbund, voici 

California Games d'Epyx, qui 

vous permet de faire du surf, du 

vélo-cross, du skate-board, du 

“freesbee”, etc. Sous l'Apple, la 

plage. 

— Range-moi cette disquette 
loin d'ici, tu vois bien que je 
travaille ! 

Après les diverses séries de simulation 

des Jeux Olympiques d'hiver et d'été, 

la Double Haute Résolution va nous 
offrir des simulations encore plus 
réalistes, puisque nous allons refaire 
nos parties de sports des rues, là où 
nous jouons sans arbitre avec le 
copain qui ne sait pas rattraper une 
balle contre celui qui ne sait pas la 
lancer (Street Sports Base-Baïl, 

Basket-Ball, ete., toujours 

d'Epyx). 


— Ne touche pas à ce joystick et 
laisse-moi écrire mon article ! 


Bien entendu, la Super Haute 
Résolution du GS permet aussi de 
magnifiques animations et 
simulations sportives : essayez donc 
World Games GS, du même 
Epyx, décidément très en forme en ce 
moment. Mais cela n'empêche pas les 
français de travailler aussi à de bons 
jeux sur Apple // : on parle beaucoup 
d'une version française pour Apple // 
de l'Arkanoïd de l'Atari, et Froggy 
Software nous offre des aventures 
inédites avec Le justicier du 
bahut. 


Les jeux de l'Arlésienne : Ultima V 
et Wizardry IV. Ceia fait 
longtemps qu'on les attend, les 
publicités sont parues, mais, à l'heure 
où j'écris ces lignes, je ne connais 
personne qui ait réussi à acheter autre 
chose qu'une promesse de vente. 
Curieuse stratégie commerciale. 


— Bon, puisque c'est comme 
ça, je te prends au surf et je 
pulvérise ton high-score ! 
Bon sang, où as-tu mis la 
disquette de California 
Games ? J'avais dit qu'elle 
devait tou jours rester à côté 
de l'Apple !!! 
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16 Bits 


Si vous avez un GS, prenez 
rendez-vous avec votre revendeur : il 
vous remettra la dernière version du 
système (3.1, avec le Finder) et vous 
mettra à niveau votre machine 
(nouvelles Roms, nouvelle chip 
vidéo) si son numéro de série est 
inférieur à C725XXXXX. Tout cela 
gratuitement. Mais bien entendu ne 
jetez rien : ni l'ancien système ni les 
anciennes Roms. Certains 
programmes ne marchent pas avec lcs 
nouvelles Roms. La solution 
charger les anciennes Roms en Ram, 
changer les vecteurs. Lecteurs 
GSphilcs, au travail! Nous comptons 
SuT VOUS. 

Question : 

Qu'est-ce qu'un Macintosh ? 
Réponse : 

Un ordinateur assez ancien de la 
société Apple, en noir et blanc dans 
ses versions grand public, mais dont 
le mérite fut d'avoir permis Ja 
réalisation d'un assez grand nombre de 
dessins ct de fontes graphiques pour le 
nouvel ordinateur couleur de cette 
société, l'Apple IIGS. 

Explication : 

Vous avez dû remarquer, au milieu 
du tas de polycopiés et de disquettes 
qui accompagnait la documentation 
technique du GS, une disquette un peu 
spéciale : elle ne marchait pas. C'est 
en effet une disquette pour Macintosh, 
destinée à vous permettre de récupérer 
sous ProDOS les fontes graphiques, 
les images MacPaint, et les fichiers 
data divers du Mac. Bien entendu, la 
conversion fonctionne aussi dans 
l'autre sens, mais les fichiers GSPaint 
ont des couleurs bien pâles sur un 
Mac Plus. 


Quelques conseils pour piller un 
Macintosh choisissez-le avec 
suffisamment de mémoire pour avoir 
un disque Ram conséquent. Emportez 
votre drive GS avec vous pour faire un 
deuxième drive au Mac s'il n'en a pas 
déjà un. Emportez un stock de 
disquettes forrnatées en ProDOS. 


La disquette contient aussi une 
application pour le Mac appelée 
“Emulateur Apple Il GS” : Pom's a 
obtenu d'Apple l'assurance que vous 
pouvez donner cette application aux 


possesseurs de Mac. Quand vous aurez 
fini de soutirer pour votre GS toute la 
substantifique moelle du Mac de votre 
ami ou de votre patron, remerciez-le 
en lui laissant cette application ct 
regardez-le l'essayer. 


Vous l'avez remarqué, si vous voulez 
reconfigurer voire disque Ram et faire 
prendre en compte cette modification 
immédiatement à votre machine, le 
seul moyen, après avoir fait le 
nécessaire avec le tableau de bord, 
est. de l'éteindre. Le GS refuse le 
moindre risque de perdre un fichier du 
disque Ram. Comme il est aussi 
protégé contre les micro-coupures 
d'électricité, vous avez le temps de 
prendre un café avant qu'il oublie 
réellement ce qu'il a en mémoire et 
que vous puissiez le rallumer. 
Heureusement il y a un autre moyen : 
faites G-control-option-reset, et 
l'autotest de votre machine démarre. 
Attendez un peu, puis faites 
G-control-reset pour redémarrer le 
disque. Cette fois-ci, le GS vous 
obéit. Puisqu'il y a déjà un 
redémarrage à chaud ct un redémarrage 
à froid , ceci doit être un redémarrage 
glacial. 

Roger Wagner m'a écrit trois pages 
pour expliquer les raisons et formes de 
sa protection de Softswitch. En gros, 
il s'agit d'éviter, s'agissant d'un 
programme que l'utilisateur met sur 
toutes ses disquettes, une diffusion ou 
un passage involontaires dans le 
domaine public. Tout est copiable, 
mais l'installation du programme met 
un signe dans votre machine pour 
qu'il ne puisse pas marcher sur une 
autre. 


Ceci dit, la dernière parution de Roger 
Wagner, Merlin 8/16, est un 
programme normal (non protégé). Et 
si quelqu'un devait craindre le passage 
dans le domaine public, c'est bien 
Bill Basham, de Diversified 
Software Research, dont le 
Diversi-Cache, qui s'intègre 
carrément au ProDOS 8, accélère de 
façon considérable la lecture et 
l'écriture sur le disque 3,5’. Eh bien, 
ce programme est diffusé en 
Shareware, avec d'autres 
indispensables (Diversi-Copy, le 
plus rapide des copieurs 3,5’, 
Diversi-Key, qui met des macros 
partout, Diversi-Hack, un 





mini-Softswitch} : vous pouvez 
copier et distribuer gratuitement la 
disquette (la documentation est sur le 
disque). Si le programme vous plaît, 
vous êtes invité à payer directement à 
l'auteur. J'ai acheté Diversi-Copy, ce 
qui prouve que l'idée est bonne. Pour 
Diversi-Cache, j'aimemis qu'un lecteur 
fasse la comparaison avec le 
programme de cache fourni avec la 
carte GS-Ram d'Applied Engineering. 
La place me manque pour faire 
aujourd'hui un tour d'horizon complet 
des langages sur le GS (j'ai dénombré 
jusqu'ici, en ne comptant que les 
langages 16 bits, au moins trois 
Pascal, deux Forth, cinq Basic,unC, 
plus les assembleurs). Disons 
seulement qu'Apple a fait son travail 
en sortant son interpréteur GSBasic, 
disponible chez DDA, fort 
ressemblant au Business Basic de 
l'Apple ///. Et parlons de l'autre. Vous 
qui commenciez à vous mettre au 
Pascal à cause de TML Pascal, mais 
qui regrettiez de ne pouvoir vraiment 
parler en Basic à votre machine, 
ré jouissez-vous : le TML Basic est 
en vente. Attention : Ce n'est pas un 
simple compilateur qui viendrait en 
complément d'un intcipréteur, comme 
c'étaitle cas avec l'Applesoft. S'il est 
vrai qu'il compile les programmes du 
GSBasic, et que la plupart des 
programmes 100% Applesoft seront 
compilables après un petitnombre de 
modifications, TML Basic est un 
ensemble de programmation complet. 


Sachant que TML Basic compile très 
vite, en mémoire, et lance aussitôt le 
programme compilé, sachant que son 
debugger intégré vous renvoie, en cas 
d'erreur, immédiatement dans l'éditeur, 
à la ligne fautive de voire programme 
toujours en mémoire, avec un 
message d'erreur explicite, la 
différence avec uninterpréteur devient 
presque invisible pour le 
programmeur. Il n'y a que la vitesse 
d'exécution du programme qui change, 
mais de façon faramineuse. Bien 
entendu, il donne accès aux outils de 
la Rom, permet la programmation 
structurée et la récursivité, eic. 
L'interface avec le ‘EML Speech 
Toolkit permet de faire parler le GS. 
La documentation est excellente. C'est 
un TML, et c'est un GS : donc, 
souris, Couleurs, couper-coller à 
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travers quatre programmes chacun 
dans sa fenêtre, etc. De quoi plaindre 
sincèrement les pauvres 
programmeurs MS-DOS, même 
turbo. 

À essayer : la cartc Memory Saver 
de Checkmate Technology, qui 
pour 150 dollars transforme le disque 
Ram de n'importe quelle carte 
mémoire du slot auxiliaire du GS en 
disque Rom. Si vous avez essayé 
Movie Studio et VS/Com de 
VersionSoft, écrivez-moi. Même 
chose pour Gribouille GS de 
Madeleine Hodé. 


À lire 


Les ouvrages sur IC GS commencent à 
foisonner. Il y a bicn entendu de tout. 
Pour ma part, je vous conseille les 
suivants : 

- Roger Wagner : Apple IIGS, 
Machine Language for 
Beginners, chez Roger Wagner 
Publishing ; 

- David Eyes et Ron Lichty : 
Programming the 65816 
including the 6502, chez 
Brady Book / Prentice Hall Press ; 

- Gary Little : Exploring the 
Apple IIGS, chez Addison- 


Wesley. 
- Michael Fischer : Apple IIGS 
Technical Reference, chez 


Osborne-McGraw Hill. 
- Gary Bond : Inside the Apple 
ILGS, chez Sybex. 


D'autre part, Apple publie peu à peu 

chez Addison-Wesley ses différents 

manuels pour le GS. Cc sont de vrais 
livres, bicn plus utilisables que les 

milliers de pages photocopiées dont il 

faliait se contenter jusqu'ici. Votre 

patience scra récompensée si vous 
avez attendu pour acheicr: 

- Apple Computer : Technical 
Introduction to the Apple 
IIGS, chez Addison-Wesley. 

- Apple Computer : Apple IIGS 
Firmware Reference, chez 
Addison-Wesley. 

- Apple Computer : Apple IIGS 


DDA devrait pouvoir fournir certains 
de ces ouvrages : demandez-lui son 
catalogue. Sinon, essayez avec 
l'APDA. Sauf pour Sybex, les 
éditeurs ne diffusent pas directement. 


Pom's a découvert l'existence d'un 
sympathique fanzine de bonne facture 
pour les toqués de l'Apple // et du 
Mac, un produit du Sud et de 
l'association Sun Data appelé 
“Ampersand”. Aux rubriques 
habituelles des fanzines (solutions de 
jeux, comment ‘protéger’ vos 
disquettes), il joint des informations, 
des revues de logiciels, et des articles 
d'initiation. Il propose un catalogue de 
“Frecwarc” à la carte pour GS ct Mac, 
et offre aux Marseillais l'accès à un 
serveur gratuit (91 79 30 60, code 
"&"). 

Pom's a également reçu le faire-part de 
naissance d'un futur confrère, une 
revue française spéciale GS et Mac : 
GS Magazine, Il est prévu que 
chaque numéro coûte 50 F, et soit 
accompagné d'une disquette 800Ko (en 
kiosque, ce sera une disquette Mac, 
que vous échangerez par la poste avec 
la disquette GS. Par abonnement, 
vous choisirez entre disquette GS et 
Mac, mais vous aurez le droit de 
l'échanger contre l'autre). La disquelle 
contiendra des programmes en 
domaine public, Shareware, et des 
démonstrations de logiciels. La revue 
devrait être orientée principalement 
sur les services à l'utilisateur et au 
consommateur. Baptême prévu à la 
mi-févricr. 
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Systèmes d'exploitation et 
Systèmes de protection sur 
Apple //, par Jean-Pierre Lagrange 
Édition Micro-application — 179 F 


Qui n'a jamais rêvé de découvrir les 
secrets des protections de 
programmes. Voici donc un livre qui 
devrait assouvir l'appétit de découverte 
des chevronnés de l'Apple //. Que les 
éditeurs de logiciels soient néanmoins 
rassurés : il s'agit ici de montrer 
comment protéger les programmes et 
leurs disquettes ; il n'est jamais 
question de détailler le travail inverse. 
‘Déplombeurs' s'abstenir ! 

Avec un sujet de très haut niveau 
technique comme celui-ci, il est 
indispensable de posséder une 
excellente connaissance préalable de 
l'assembleur et des systèmes 
d'exploitation de l'Apple // (DOS 3.3 
ou ProDOS). Il ne sera jamais 
question de faire un apprentissage de 
la pratique du 6502 : le début du livre 
démarre sur les chapeaux de roue et la 
suite continue à Ja même vitesse. 
Au menu, on trouve d'abord les 
éditeurs habituels de disquette tels que 
CIA ou Watson. Suivent une 
description des méthodes ‘préhisto- 
riques’ de protection en mémoire d'un 
programme (en commençant par 
rediriger les vecteurs du Reset). Puis, 
les protections sur disque sont 
progressivement détaillées 
modifications du nombre de pistes, de 
secteurs, d'octets ou de nibbles 
précèdent des méthodes franchement 
abominables : nouvel encodage des 
nibbles, allongement des temps de 
synchronisation, synchronisations 
angulaires, Enfin, apparaissent les 
méthodes quasi-incopiables 
interpistes ou spiraling par exemple. 


Pour illustrer ces méthodes, l'auteur 
parsème les chapitres des listings des 
principales routines étudiées (à 
nouveau, seulement des routines de 
protection : aucun listing n'est fourni 
pour décrypter). Il ne reste plus au 
lecteur qu'à protéger ses programmes 
en créant un cocktail de sa 
composition pour faire amplement 
transpirer les héritiers d'Atdo Reset. 





MatStatMath - Logma SA - 12, 
rue d'Anjou — 78000 Versailles - 
450F 


Il ne s'agit pas là d'un livre mais d'une 
disquette proposée en annexe dans 
l'ouvrage Excel efficace publié chez 
Cedic/nathan. 

MatStaiMath regroupe un grand 
nombre de modèles de calcul 
utilisables avec Excel et destinés au 
étudiants, professeurs ou, plus 
généralement, tous ceux qui ont 
besoin de manipuler des statistiques 
ou nombres sous toutes leurs formes. 
Cette disquette contient également une 
police de caractères en taille 6 points, 
baptisée MicroCaractères. 
MatStatMath est commercialisée par 
Logma SA, société qui distribue aussi 
les fantastiques cartes Speedisk pour 
Apple //. 





Le livre de PostScript®, par 
Bernard-Paul Eminet — Édition du 
P.SI-280F 


Il ne faut pas rechercher dans cet 
ouvrage une description exhaustive 
des possibilités de PostScript. Il s'agit 
plus d'une présentation qui permet 
peut-être de débuter dans ce langage. 
Les exemples de ce livre sont pour 


Alexandre Avrane, 
Alexandre Duback. 


l'essentiel tirés de l'excellent 
PostScript Language — Tutorial and 
Cookbook chez Addison-Wesley 
Publishing Compagny (fort beau 
livre, bien fait, réalisé avec goût et 
élégance dont le seul inconvénient est 
d'être en anglais). 


Pour un livre qui traite du summum 
de la maîtrise de l'impression sur 
Laser Writer et autres imprimantes 
PostScript, on se demande pourquoi 
l'auteur (pourtant ingénieur chez 
Apple) liste des programmes sans 
montrer le résultat de leur exécution : 
avait-il une machine sous la main ? 
Cela ne simplifie pas la 
compréhension de l'ensemble. 

On retrouve dans cet ouvrage, 
brutalement recopié, le programme 
paru dans Pom’s 24 qui imprime 
joliment «PostScript» aucune 
référence au nom de l'auteur, merci 
pour lui... Si l'on ajoute le mélange 
des polices de caractères et le manque 
de goût dans la mise en page et les 
croquis, voici un livre bien décevant. 


ImageWriter * II - Manuel de 
référence — Apple Computer 
France/InterÉditions 


Comme toutes les documentations 
d'origine Apple, celle-ci est bien faite, 
claire et précise. De plus, les erreurs 
qui apparaissaient dans les éditions 
antérieures ont apparemment 
disparues. Cet ouvrage est donc 
indispensable lorsque l'on veut utiliser 
à fond l'imprimante ImageWriter, 
pratiquement toujours sous-employée. 


Vosiserÿ/ 
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4) Transmission - 9 I. 
De: Arian ZELWER (AZ10) - 11 jan 88 22h35 


S'il vous plaît, une question : 

Ayant à côté du Mac+ un A//c avec lecteur 3,5 
pouces, est-il possible de récupérer les fichiers textes - 
sous ProDOS/Appleworks - et les reprendre sous 
MacWrite ou Word ? 

Puis-je échanger des fichiers par liaison directe entre ces 
deux machines ? 


Merci de votre aide. *** AZ10 *** 


Avec interPom's sur le Mac et Inter Pom's sur le k (et 
un câble de liaison ad hoc), vous pourrez transmettre les 
fichiers à 9600 bauds. 

Si vous transmettez le fichiers AppleWorks, vous 
hériterez de codes de contrôle qu'il faudra éliminer en 
traitement de textes sur le Macintosh. 

Un conseil, demander à AppleWorks' l'impression dans un 
fichier texte (ASCII) sur disque», puis transmettez ce 
fichier nouvellement créé : plus de codes de contrôle, peu 
de questions de présentation à régler à l'arrivée sur le 
Macintosh. 


5) Bonjour et S.O.S. … - 4] 
De: Jean-Pierre BCULETEX (JPB12) - 12 jan 88 08h31 


J'ai un problème avec un fichier texte DOS 3.3 et ce 
message : Erreur code 107 ? Que doua-je faire ? Amitiés. 
(PS) à quoi correspond le numéro de chaque disquette 
Mac dans le bon de commande ? 


Erreur 107 : Bad Subscript error : vous tentez de sortir 
des limites d'un tableau ; par exemple, DIM Af$(12) : 
PRINT A$(16). Devant une erreur dont on ne connaît pas 
le code, le plus simple - à part consulter le manuel du 
Basic, du DOS ou de ProDOS - est de supprimer le 
ONERR qui récupère les erreurs. Un message en clair, et 
accessoirement en anglais, s'affichera. 

Le numéro des disquettes Pom's représente le numéro de 
la revue à laquelle elles correspondent. Ainsi, la disquette 
28 contient tous les fichiers listés dans la revue 28. 





5) Date avec AppleWriter Pom's 33 - 9] 
De: Jean-Marc MAYER (JMM13) - 02 jan 88 14h04 


Je rencontre un petit problème avec "Date et 
AppleWriter sur un GS. 

Sans programme de boot qui met la date dans les octets 
$BF90-$BF 91, l'utilitaire me dit : vous n'avez pas de carte 
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horloge, ce qui est normal. 

J'ai installé REBOOT.SYSTEM importé de CalvaCom 
mais lors d'un boot, j'ai toujours le message : 
INSERER/REBOOT. 

Que faire ? 


En fait, vous n'avez pas besoin de REBOOT.SYSTEM 
puisque l'Apple HGS comporte une carte horloge. C'est 
votre version de ProDOS qui ne la reconnaît pas : if faut 
installer la version 1.3 ou 1.4 de ProDOS 8 sur votre 
volume AppleWriter et tout rentrera dans l'ordre, les 
fichiers seront datés. 


En ce qui concerne REBOOT, si vous préfér'ez cette 
solution, importez également MODIF.REBOOT qui permet 
de changer le nom de volume qu'attend cet utilitaire. Autre 
solution transitoire, renommer votre volume de travail 
/REBOOT. 





3) Câble et Gestion bancaire (AR) - 35] 
De:Thierry VICAIRE (TV10) - 30 dec 87 21h03 


Je vous ennuie encore avec deux questions : 
1) J'aurais besoin d'un câble de 3 m pour relier mon Minitel 
1B à mon MacPlus : quel serait le prix ? 
2) Concernant le programme de gestion de compte 
bancaire du numéro 20 de Pom's : 
- est-il compatible HFS ? 
-_ fonctionne-t-il obligatoirement avec Basic 2.0 ou son 
RunTime est-il suffisant ? 
la ventilation des dépenses peut-elle servir à 
ventiler les recettes ? 


1) 300,00 F franco 

2) Ce programme ne fonctionnera normalement en 
HFS qu'avec la version 3.0 du Basic Microsoft. 
Basic 2.0 ou simplement RunTime 2.0 conviennent mais 
pas en HFS. 
Non, seules les dépenses sont ventilées. 





14) Graphisme et assembleur *AR* - 911. 
De:Jean-Louis ROCHE {JLR‘0) - 27 dec 87 23h06 


Problème : 
Un petit bonhomme traverse l'écran ; 7 formes (shapes) 
définissent te mouvement et un petit programme Basic 
s'occupe de l'affichage. Cela fonctionne mais je me heurte 
à un clignotement de l'écran. 

Même travail en assembleur, mais après de vains essais, 
je constate que “ça clignote toujours" ; on est loin du 
défilement harmonieux que j'attendais. J'en conclus qu'il y 





























a une astuce de programmation certainement bien connue 
depuis la préhistoire de l'informatique ! 


Nous ne publions pas le listing accompagnant ce message 
car la solution est effectivement connue : 

I suffit de tester l'octet $C019 et de n'afficher que 
lorsqu'il est positif, c'est-à-dire qu'il n'y a plus de balayage 
en CUS. 


$1 BIT $CO19 
BPL S1l 
routine d'affichage 


Cette solution n'est valable qu'en assembleur ; pour une 
question de vitesse, pas question de tester en Basic ou 
même d'appeler depuis le Basic ce micro-programme 
avant l'XDRAW. 


17) Ch'Pom_transfert - 8] 
De: Alexis APLOGAN (AAÏ1) - 29 dec 87 11h55 


Avec Clv pom's, je n'arrive pas à récupérer les 
applications importés de CalvaCom. Lors de la 
transformation par BinHex 4, la lecture de l'application 
est interrompue par ERREUR CRC ($2A83). 

Merci de votre réponse. 


Il est probable que vous ayez importé votre application en 
mode “enregistrement de textes” ce qui a conduit à un 
recodage des caractères accentués, donc à une erreur de 
‘checksum'. I convient de se mettre en mode 
“enregistrement de programmes”. 


10) Help Patchworks - 171 
De: Laurent AIUTI(LA24) - 26 dec 87 14h5 


Réf. Pom's 33 Patchworks page 67 

Le patch qui remplace le caractère “damier” par le 
caractère souris “return” sur AppleWorks 1.4 ne 
fonctionne pas, AppleWorks se plante et bloque le GS. 
Pourtant j'ai exécuté à la lettre les indications. 

Y at-il une erreur dans les Pokes ? 

Amicalement. 


Que vous dire ? Non, il n'y a pas d'erreur, après exécution 
des pokes, nous obtenons le résultat escompté. If ne peut 
que s'agir d'une erreur d'adresse lors de la manipulation. 








6) Conseil... - 101 
De: François MULLER (FM17) - 11 dec 87 15h31 


Je conseille aux utilisateurs du programme MinBas (Pom's 
27) de faire la modification suivante s'ils ne l'ont déjà 
faite. 


Ligne 795 ajouter CHR$(31) 9 après le CHR$(14). 


Ceci provoquera un saut de 9 lignes sur votre IMW // et 
imprimera une page Minitel sur une page de papier, ce qui 
est plus pratique. 
Amitiés ** FM ** 








Du côté des imprimantes Laser Writer 


On parle d'une nouvelle version du PostScript intégré à {a 
LaserWriter disponible aux États-Unis, mais quel est le 
numéro de version de votre imprimante ? Pour le savor, 
envoyez-lui Le programme fisté ci-dessous. Il donne acces- 
soirement le nombre de pages imprimées et le nom de 
l'imprimante ; c'est aussi l'occasion de voir des instructions 
non abordées d'ans Le numéro 24 de Pom 5. 

L'envoi se fait depuis un Mac À l'aide de Doun£Load ou 
JustText et depuis un Apple //, par le port série avec tout 
traitement de textes. 


%! n° version PostScript 

/imes-Roman findfont 12 scale font setfont 

100 700 moveto version (N\312 de version : }show show 
100 680 moveto 31 string 

statusdict begin printername pagecount end 

6 string cus (Nombre de pages : }show show 

100 720 moveto (Imprimante : ) show show shourpage 


Trois nouvelles Laser Witer sont proposées par Apple : 
longévité tri ple, densité des noirs améliorée, cartouches plus 
d'urables, bac de 200 feuilles et, en fin !, un bac à enveloppes. 


* Laser Witer [ISC, dédié à un seul Macintosh, pilotée 
parles routines QuicKDraw dudit Mac : 4 polices, IMo 
Ram — 19 900 FHT 

* Laser Writer INT, dotée de fa dernière version de Post- 
Script (42 ?} rapide et partageable : 35 polices, IMo 
Rom, 20 Ram — 29900 FHT. 

* Laser WAiter IINTX conçue avec un processeur 68020 À 
16 Mhz, 2 à 4 fois plus rapide que {a Laser+. Extensions 
mémoire prévues : 35 polices, IMo Rom, jusquà 12Mo 
Ram — 39900 FHT. 


Ælles sont connectables à un [IGS ou à un PC à l'aide 
d'Apple Talk PC et un système de mise à niveaud'un modèle 


à l'autre est prévu. 





70 


Pom's n° 34 











etites annonces 





Ces petites annonces sont gratuites 
et réservées aux abonnés. Elles 
doivent bien entendu concerner 
l'informatique. Pour les ventes de 
logiciels, l'annonceur doit nous faire 
parvenir une photocopie de la 
facture d'achat. 


Vends carte SSC (01/87) : 750 F — 
câble SSC/Minitel : 150 F — Disk ][ : 
1000 F — carte horloge (driver 
ProDOS à adapter) : 100 F — 
collection Micro-Systèmes (20 à 
72) : faire offre. 

Jean-Marc Corazza - Le Téoulet - 
81600 Gaillac © 63 57 06 96 





Vends imprimante Microline 80 
parallèle connecteur Centronics : 
1000 F. 

Michel Le Port © 47 20 81 88. 
Calva MLP10 





Recherche Langage Fortran UCSD 
original pour Apple //. 

André Moreau - 73, rue du Roleur - 
59300 Valenciennes © 27 45 16 12 


Vends logiciels pour PC & 
compatibles sous emballages scellés, 
Multiplan 3, VP Expert : faire otfre. 

Daniel Ronxin - Laignelet - 35133 
Fougères © 99 99 33 71 





Vends Appie //e 65C02 128Ko, 
Moniteur ambre, 2 lecteurs 140Ko, 





Solution du n° 33 


[PIET TI IT TIM AI TI IN] 
[RJO[U/TI INT ITETR 
LAÏLITIETR|EL RER 1] 
LETTRE Oo! STI AG] 
[STET 1[G[N[ElUTR| LE) 


LIEN] clAlS] LS 


Horizontalement 


4 - Courroies 

2 - Tel Balzac 

3 - Vraiment protestante 

4 - Opaline 

5 - Flotte - Bye-bue 

6 - Ilpeut s'agir d'une zone 
7 - Malvieilli- Arc en ciel 


ventilateur, pavé numérique, 
joystick : 5000 F — Machine à écrire 
Underwood électronique à 
marqguerite avec mémoire : 3500 F. 
M. Calvet © 45 97 44 82 


Recherche Compilateur C Aztec 
d'origine, complet avec documen- 
tation pour Apple //e. 

Norbert Steinberg - 24 avenue du 
Moulin - 78230 Le Pecq © dom : 39 
58 42 71 © Bx 64 46 2650 


Contact Pour partager expérience 
en assembleur, prendre contact 


avec : 
Emmanuel Bougeard 3Bis 
boulevard des 3 croix - 35000 


Rennes © le week-end 99 59 37 06 


Recherche programmes d'origine : 
The Bridge, MultiScribe 2.0, logiciels 
d'astrologie, Astronomie, Généalogie 
sur Apple //, Mac, IBM et tous 
logiciels de démonstration en version 
limitée. 

Club informatique ForlNext - 15 
square Costes 91070 Bondouile © 
64 97 67 09 CalvaCom CI10 & PB16 


Vends machine à écrire IBM à 
sphères : 1500 F 

Maurice Trecul - 3, boulevard de 
Verdun - Moigny sur école - 91490 
Milly-la-Forêt © (1) 64 98 42 35 





Comme promis, nous avons 
tiré au sort des noms parmi 
les bulletins d'abonnement 
depuis parution du dernier 
numéro. 


M. Michel Cosset de 
Caudebec en Caux à reçu un 
traitement de textes, M. 
Jean Rumeau, un trai- 
tement de textes doublé d'un 
programme de mailing, M. 
Patrice Verdun de Villiers 
le Mahieu, un traitement de 
textes, et M. Bertrand 
Guillin d'Épernay un 
tableur. 


Félicitations et rendez-vous 
au prochain numéro pour le 
résultat de notre sondage et 
un autre tirage au sort parmi 
les abonnés (rappelons que 
nous offrons programmes de 
valeur et documentation 
techniques). 


DOVE 


Problème 34 par Joëlle Piard 








8 - Empotés 
9 - Va au fast foot - Débarrasée 10 - Dégoutter - Fins des fléaux 
Verticalement 
1 - Cuirs équestres 2 - Vit sur la Loire maïs pas dans la Loire 8 
3 - Vociférante 4 - Certaine argile 95 - Boue - Aufwiedersehen 
6 - Peut tourner à la psychose 7 - Permet aux IBM d'y voir clair 9 
- Nacrés 8 - Retouchés 9 - Lunch - De moins en moins 
10 - Exhaler - Chevilles 
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Nous avons découvert 
qu'on peut avoir 
le sens des affaires... 


Avoir le sens des affaires est devenu monnaie courante. 

R en n’est plus banal que de commencer une entrepr se à deux 
dans un garage, et de la retrouver 10 ans plus tard dans les 200 plus 
grandes entrepr ses américaines. 

Ce qui est plus rare, c'est de conserver les vraies valeurs et d'avoir 
le sens de la famille. 

De 1984 à 1987, Macintosh a beaucoup progressé. 

Sa mémoire s'est considérablement étendue, de 1 à 8 méga- 
octets, ses menus se sont sophistiqués, h érarch sés, sa bibliothèque 
delo ciels est devenue La 3 

Cependant, il n’a jamais oublié ce qu'il avait appr s de plus 

mportant: l'homme. 

Après Macintosh Plus et Macintosh SE, Macintosh I en est une 
nouvelle preuve. 


























et celui de la famille aussi. 


Les menus déroulants sont toujours présents, bien qu'ils se 
déroulent beaucoup plus vite. 

Les capacités graphiques sont toujours les mêmes à 16 millions 
de couleurs près. 

Cest une machine toujours aussi intuitive, disposant delà 
8 mégaoctets de mémoire vive (et même plus), d’un disque dur 
interne de 20 à 80 mégaoctets, pour que toute la logique de votre 
travail y trouve son aise. 

Ouvert à tous, Macintosh II est aujourd’hui ouvert à tout grâce à 
ses 6 connecteurs d'extension. 

Mais pourquoi au juste les hommes ont-ils le sens de la famille ? 

Parce qu'ils n'aiment _ renoncer àce qui leur ‘ 
est familier, ni s'encombrer l'esprit de règles inuti- 
les, et parce que le progrès et l'expérience doivent 
êtrevécuscomme un enrichissement et non comme 
un changement systématique de méthode. 

Et comme derrière chaque utilisateur se cache 
un homme, nous avons en définitive encore plus 
le sens des affaires. Apple 


Macintosh I 
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CLM. & BBDO. 


Apnle. le logo Apple et Macinensh sont des marques déposées de Apple Compass Inc Pagééatsr es une ciarque déposée de Aldus Corporation. Excel est une marque dépurtr de Micvnh Corpuraina. Cricket Dras et Cricket Graph sont distribués par Alpha Sysèrmes. 





RE 


= f= +5 LEZ 


pour les envois par avion, ajoutez 15 F par numéro etou par disquette soit, par exemple, 90 F pour un abonnement avec ou sans disquettes. 


Revues Pom's 

n°8 3500F 0] n°10 40,00F [0] n°11 4000F0 n°12 4000FE n°13 40,00F0 
n°14 40,00F 0] n°15 4000F 0] n°16 40,00 FC] n°17 40,00F0C n°18 4000F0 
n°19 40,00F 0] n° 20 40,00F[] n°21 4000F0 n°22 40,00FE] nm 23 4000F0 
n°24 40,00F 0] n°25 40,00F [0 n°26 40,00F 0] n°27 45,00FE] n 28 45,00 F0] 
n°29 45,00F 0] n°30 45,00 FC] n°31 45,00F 0] n° 32 45,00 FC] n°33 45,00 F [] 
n° 34 4500 F0] 





Disquettes d'accompagnement de Pom's pour Apple ][, en 140Ko - 5,25 pouces 

n° 142 60,00F [1 n°3 60,00FC01 n°4 6000F0 n°5 6000F[0] n°6 60,00 FC] 
n°7 60,00F 0] n°8 6000F0) n°9 6000F0) n°10 6000FC1 n°11. 6000F0 
n°12 60,00 F0] n°13 60,00 FEI n°14 60,00F 0 n°15 6000 FCI n°16 6000F0] 
n°17 60,00 FO n°18 6000FE1 n°19 60,00F0] n°20 6000 F0 n°21 60,00 F0] 
n°22 60,00F 0 n°23 60,00F[C1 n°24 60,00 FO n°25 60,00 F0] n°26 60,00 FC] 
n°27 6D00F0I n°28 60,00FC1 n°29 60,00F 0] n°30 60,00 F0] n°31 60,00F 0] 
n°32 60,00F0 n°33 60,00F[017 n°34 6000F0) 








Disquettes d'accompagnement de Pom's pour Apple }f, en 800Ko — 3,5 pouces 
n°29 80,00F 0 n°30 80,00F0) n°31 8000F0 n°32 8000F[] n° 33 80,00 F0] 
n° 34 80,00F 0) 





Disquettes d'accompagnement de Pom'’s pour Macintosh 

n° 14+15+16 150,00 FC] n°17 8000F0 n°18 8000FE] n°19 80,00F0 
n°20 80,00 FC] n°21 80,00 F0] n°22 8000 F0 n°23 8000F0 n° 24 8000F0 
n°25 8000F0 n°26 80,00F 0] n°77 8000F0 n°28 8000F 0] n°29 80,00F0 
n°30 8000F0 n°31 80,00F[] n°32 8000F0 n°33 8000F0 n°34 80,00F 0] 








Recueils de la revue Pom's {regroupent quatre numéros de Pom's) 
n° 1 (revues 1 à 4) 140,00F0  n°2{revues5à8) 140,00F01 n° 3 (revues 9 à 12) 140,00 FO 


Disquette 1 à 4 200,00F/1 Disquette 5 à 8 200,00 FC) Disquette 9 à 12 200,00 FC] 
Logiciels pour Apple ][ 


Pom Link 3.0140Ko 450,00 FL]  Pom_Link3.0800Ko 450,00F C1]  BananaSott 140Ko 200,00 FC] 
Clv_Pom's 140Ko 200,00F01  Clv_ Pom's800Ko 200,00FL1  Édit. Vidéotex t40Ko 200,00 FD 
interPom's 2.0 140Ko 200,00 F [1  InterPom's 20 800Ko 200,00 FL]  Ludologic 140Ko 80,00 FO 
E.P.E 5.1 140Ko 200,00 FC)  E.P.E5.1 800Ko 200,00FC1  MaxMoniteur 140 Ko 150,00 F [1 
Oil 





Ordico 140Ko 200,00 FC]  Dominos 140Ko 200,00 F COGO {src) 140Ko 200,00 FO] 
Logiciels pour Macintosh 

Excel efficace 400Ko 195,00 FC)  Excelefficace 800Ko 175,00F C1  MacAstuces 200,00 FOI 
Pom _Link 3.0 “450,00 FO)  Clv_Pom's 200,00 FO  InterPom's 2.0 450,00 FO) 


Disquettes de logiciels ‘domaine public’ pour Macintosh 
Mac'A'O ‘B'O ‘C'O D'D)  €’O F'O GO HO OO ‘JO 80,00F pardisquette 














Reliures toilées pour 6 numéros de Pom's (un an) : exemplaire(s) à 60,00 F, soit E 
Abonnements pour six numéros à partir du à: 

la revue Pom'sseule 225,00 FC]  larevue et les disquettes Apple ][ 140K 525,00 FCI 
là revue et les disquettes Apple }{ 800K 625,00F [1 la revue etles disquettes Macintosh 625,00 F D 
la revue Pom's, les disquettes Apple ][ 140Ko-5' 1/4etles disquettes Macintosh 925,00 FC] 
la revue Pom's, les disquettes Apple ][ 800Ko - 31/2 et les disquettes Macintosh 1025,00F 0 
Envoyez ce bon et voire règlement à : Éditions ME V - 12, rue d'Anjou - 78000 Versailles 

Nom : 

Adresse : RES REP OMR RE PE PE 
Règlement par: CB/Visa/Euro/MasterCard [A Chèque bancaire [] Chèque postal [1 Mandat D 
NUM O dE A CAE) date d'expiration __ __ __ 
Montant 0 : Signature : 


*Remise de 10% sur Pom_Link 3.1 pour les abonnés 








Détecteur d'appels téléphoniques 


Cet appareil, pour Apple // ou Macintosh, autorise une 
surveillance de ia ligne téléphonique pour l'utilisation de 

l'Apple comme serveur avec un logiciel tel, par exemple, | 
Répom'deur publié dans ie numéro 34 de Pom's. 


Câble-interface Apple — Minitel 


Pour faire fonctionner les programmes suivants : 


° Minitel/1 pour Macintosh. MinBas pour Apple i{+, 
//e, //e+, //c et IIGS : programme permettant 
l'enregistrement des écrans Minitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies 
d'écran du Minitel, et aussi l'envoi de textes ou messages 
sur un serveur. Programme du numéro 27 de Pom's. 


+ InterPoms 1.0 (et plus) pour Apple +, //e, //e+, //c, 
HGS et Macintosh : programme de téléchargement entre 
Apple li et/ou Apple ][ et Macintosh. Transmission de 
n'importe quel type de fichier (système, texte, binaire, 
Basic...) en utilisant le Modem du Minitel. Version 1.0 
publiée dans le numéro 28 de Pom's. 


+ T_Pom's pour Apple ]JI+, //e, //e+, //c, IIGS* et 
Macintosh : récupération de l'annuaire téléphonique sous 
la forme de fichiers texte. Nunéro 30 de Pom's. 


° Clv_Pom's pour Apple ]+, //e, //e+, //c et IIGS* et 
Macintosh : programmes de communication pour 
CalvaCom et serveurs ‘ASC’. Numéro 31 de Pomn's. 


+ Paint Minitel pour Mac et HGR — Minitel pour 
Apple ][+, //e, //e+, //c, 1GS* : graphisme et Minitel, 
programmes proposés dans le numéro 33 de Pom's. 


* Répom'deurpour Macintosh, Apple ]I+, //e, //e+, //C 

et IIGS* :  répondeur/enregistreur télématique 

Interrogeable à distance publié dans le numéro 34. 

* sur un Apple 1IIGS, ce programme fonctionne 
indifféremment avec le port série intégré ou la carte Super 
Série Apple. Pour connecter le port intégré du IIGS, utilisez 
un câble pour Macintosh Plus. 


ES 

Je désire recevoir : 
détecteur d'appels Apple // à 500,00 F : 
détecteur d'appels Macintosh à 500,00 F fs 
câble Minitel/Apple // & SSC à 225,00 F 
câble Minitel/Apple //c à 225,00 F 
câble Minitel/Mac 128, 512K à 225,00 F 
câble Minitel/Mac Plus, HGS à 225,00 F 
câble Minitel/IBM PCT“ ea <04 225 0077 »: 1. 
câble de Ilaison locale** à 225,00 F 








* si vous êtes abonnés, vous bénéficiez d'une remise de 
10% sur le prix du détecteur, soit 450 F au lieu de 500 F. | 
** préciser le type des deux machines à relier: | 
Mac. 512, Mac Plus, Apple //e, //c, HGS, IBM PC. 


Envois par avion : ajoutez 15 F par câble et/ou détecteur 





Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
NON nt. Vue de OPEN NÉ ORTMIRAN NE © 
Adresse : RONA. See Ps 


En cas de règlement par CB/Visa/Eurocard/Mastercard : | 
numéro de la carte 
date d'expiration 
Montant 


Or 2 D CERTUS 


































Automatiser 
Apple Works?" 
version française 1.4 ? 
Utiliser la souris ? 


Programme américain 
sur disquette 800Ko 
sur disquette 140Ko 


Version francisée 
sur disquette 140Ko 


Documentation 
française 
Disquette Bonus 
de Dimitri Geystor 


Documentation 
américaine 


S{ILIAITTE à 


abonnés à Pom's : 
CRIIAUIE à 


LORATEN CO 210 à PATATE à 
Banc d’essai : Pom’s 33 
Pom’s — 12, rue d’Anjou 
78000 Versailles 
CR EHIPITE 





AN APPLEWORKS ENHANCEMENT 


COMPATIBLE 


Apple Ile, [lc or IIGS 
Requires AppleWorks 20 
or newer 


UNPROTECTED 


Backups may be rude 
using standard copying 
pocedures. 


FOR 
APPLEWORKS 
AUX ©) 10 PV EH LA 
ApplelVorks version 1,4 

ind cuire 
MACROWORKS 


UFIWARE, 


T7 


S U P E R 
: MACROWORKS : 
ppleWorks» Macro Power! Tum 
any series of keystrokes into a 
new one-keystroke command. 


Adds many new features to your Word 
Processor, Data Base and Spreadsheet. 








